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Foreword 


This is not a ‘how to use your machine’ book as we assume that the 
user will already have a working knowledge of the main commands 
on the Commodore 64 keyboard. The intention of this collection of 
programs is to help the young user to become more familiar with 
their computer, improve their knowledge and have fun at the same 
time. None of the programs is of great length as we are aware that 
younger users will want to see the results of their planning as soon 
as possible. 

Virtually all of the programs will have a ‘games’ element to 
encourage the user to beat the machine. In some programs the 
junior programmer will be typing in the answers to the questions 
which the machine will eventually ask. In order to remove the 
certainty of a correct answer however, the computer will be 
requested to make random choices from the information given. 

As can be seen from the contents list the programs cover a wide 
area of interest including mathematics, geography, grammar, 
weights and measures and music. 

The programs have been designed so that they can be adapted to 
include more complex questions and so increase the user’s ability. 



Introduction 


This collection of programs has been written for junior users to pit 
their wits and test their knowledge. 

We have designed these programs so you can learn how to use your 
Commodore 64 computer by typing in your own information. 
None of the programs is too long to input into your machine as the 
idea is to help you sharpen up your mind - not to turn you into a 
typist. 

Once the program is in the machine you will be able to begin 
answering the questions and improving your knowledge. The 
faster you respond the quicker the computer will ask you the next 
question. 

You will be surprised how quickly you will learn how to use your 
Commodore 64, and how soon you will want to move on to the next 
program. 

As soon as you know how to enter these programs - and beat the 
Commodore 64 - you will be able to change the content in the lists 
and make things even more difficult for yourself. 


Things to remember 

Your Commodore 64 works with it's own language called BASIC. 
If you try to ‘speak’ to your machine in another language then 
nothing will happen, except that you will get a nasty message which 
says ‘error in line’. 

Programming is not like writing an essay for class. Your teacher 
might let you off with a mild caution if you miss out a comma - your 
Commodore 64 will not. 

You have to follow, exactly, the ‘characters’ shown on the program 
listings in this book. If you miss a comma, or enter a dash by error. 
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then the program will not work. You cannot put in any other 
instruction and expect the machine to work. If you have typed in 
your program and the Commodore 64 will not 'run 1 as instructed, 
then you will have to check your 'list 1 against the book for 'bugs 1 . 
Check carefully before you decide to throw your machine out of 
the nearest window! 

We know that the programs listed in the book are 'bug free 1 
because, not only have we checked and double-checked them, we 
have reproduced them from our Commodore 64 using a 
mechanical printer. 

We did this because it makes things easier for you and also for our 
own printers when they produce our books. If you are really having 
trouble however you can always ask your parents. They should be 
able to help you. 


Cassette Storage 

Once you have gone through ‘inputting 1 your programs you can 
store them on cassette tapes for future use. 

Cassette tapes will take up some of your pocket money but they 
mean that you will always have quick access to your list of 
programs. 

Having your programs on tape also means that, when you have 
improved your programming skills, you will be able to rewrite the 
programs we have given you. 
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Counties 



A few years ago the Government changed the names of most of the 
counties in England, Wales and Scotland. Some people still call 
them by their old names so we have come up with this program to 
help you make sure you know the new names and where they are. 

Your computer knows where Gwent is - do you? 


Howto play 

The computer will draw an outline map for you and give you a list 
of ten county names to choose from. 


The computer will then choose, at random, an area for you to 
identify. A flashing sign will indicate the area in question. Type in 
your answer in upper case (capitals) . 


Counties 1 1 


Tries and scores are shown on the screen. 

If you are wrong it will be a case of try, try again until you get it 
right. 


Programming Notes 

This program uses the same map drawing routine as ‘towns’ and 
‘compass'. See the introduction to ‘towns' before typing in 
‘counties’. The rows for county names are held in the data 
statements 10240 to 10390. If your county is not here, why not try 
and insert it's name and position. 


Program 


10 REM 

28 REM * % 

22 REM % COUNTIES # 


24 REM % # 

25 REM ############## 

27 D I M8X (IS), SV < 1 6 > , COUNTV* ( 1 6 > 

30 AT*=CHR* < 17): F0RT= 1 T06 : AT*= AT*+ AT* : HE 
XTT : AT*=CHR*( 19)+AT* 

35 PQKE53280 , S : P0KE5328 1,15: PR I NTCHR* ( 1 4 


4) 


40 TR=0 : SC=0 
5 0 G 0 8 1J B 3 0 0 0 • G 0 8 U B 7 0 0 0 
60 F0RT=1T01S 

78 POKESP+2 1,0 : POKESP .■ SX (T) : P0KESP+ 1 , SV ( 
T) : P0KESP+21, 1 

75 PR I NTLEFT* (AT*, 18)SPC(23)" 

II 


80 PR I NTLEFT* ( AT* , 1 8 > SPC ( 23 ) CO* < T ) 

90 F0RQ= 1 TO 1 5 : F0RDL= 1 T058 : NEXTEL : P0KESP+ 
21 , 0 : FORBL=1TO50 : NEXTDL : POKESP+2 1, 1 : NEXT 
100 NEXTT 

110 R= I NT < RNB ( 1 > % 1 6 ) + 1 
120 PR I NTLEFT* (AT*, 3) SPC (20) "SCORE: "SC 
1 30 PR I NTLEFT* ( AT* , 3 ) SPC ( 30 ) " TR I ES : " TR 
135 PR I NTLEFT* (AT*, 13)SPC(23)" 

ii 


140 PR I NTLEFT* ( AT* , 1 0 ) SPC ( 23 ) 
TV" 


WHICH COUN 



12 Counties 


1 45 PR I NTLEFT* < AT$ , 1 2 ) SF'C 


oo 

c,-«» 


it 


1 50 PR I NTLEFT $ < RT* ,12) SPC < 23 ) " I S TH I S ? " 
155 PR I NTLEFT* ( AT* , 1 4 ) SPC C 23 ) " 

II 


1 57 POKESP , SX ( R ) : POKESP+ 1 , SV ( R 
1 60 PR I NTLEFT* < AT* , 1 4 ) SPC < 23 ) 
165 IFASC<RNS*)<65 0RASC<ANS*): 
$=M I B* ( ANS* , 2 ) : GOTO 1 65 
178 TR=TR+1 

1 80 I FRNS*=CO* ( R ) THENGOTO240 


I HPUT ANS* 
■90THEHRNS 


1 90 


200 GOSUE5000 : PR I NTLEFT* CRT*, 12) SPC < 22 ) " 
HO! THRT IS WRONG" 

2 1 0 FORDL= 1 TO 1 00 : POKESO+ 1 , RND ( 1 ) -$256 = HEX 

TDL ; POKESO+1,0 

220 POKESO+ 1 , 0 ■ G US 11.85 88 8 

230 GOTO 120 

240 GOSUB5880 : PR I NTLEFT* ( RT* , 1 2 ) SPC < 22 ) " 
CORRECT ! " 

258 FORR= 1 T04 : FORE= 1 T02 : FORC= 1 T05 ; FGRD= 1 
T06 : POKESO+l, R#B#C#D : NEXTD, C, E, fi 
260 SC=SC+1 

270 POKESO+ 1,0: OOSUB5808 
280 GOTO110 

5000 REM CLEAR PART OF THE SCREEN 

58 1 0 F0RT=5T023 : PR I NTLEFT* <RT$, T ) SPC < 28 ) 

" " : NEKTT : RETURN 

7000 REM SET UP SPRITE 

7010 SP=53248 

7028 POKESP+21 , 0 

7830 FORT=0TO63 : P0KE832+T , 0 : NEXTT 
7040 P0KE832 , 96 : P0KE835 , 243 = P0KE838 , 248 = 
P0KE841 , 96 

7058 POKE2840 , 1 3 : POKESP+2 1,1: POKESP+ 16.8 
: POKESP+39, 9 

7060 FORT= 1 TO 1 6 : RERDSX ( T ) , S V < T ) , COI !HTV* < 
T) : NEXTT 

7878 REM SET UP SOUNDS 

7888- 80=54272 : FORT=0TO28 : POKESO+-T>-0 : NEXT 

T 

7098 P0KES0+5 , 9 : P0KES0+6 , 248 : P0KES0+24 , 1 
5 : P0KES0+4, 33 
7100 RETURN 

9000 REM DRAW MRP OF BRIAIN 
9085 PRINTCHR$( 147) 
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9013 

FORT=1024T0 

9015 

FORTT=0T018 

9329 

READX 

9033 

P0KET+TT,X:| 

9043 

HEXTTT, T 

9058 

RETURN 


' O C' 

<- t rr a .-to on / 


cL-JM- .< Ocl .■ OcL } it 

:>U 1 

32.' 32 

126,32,254, 1 

L 68 , 

*“’9 , OO 

118, 108, 168, 

168 

:, 32, 32, 32 
124, 108, 160, 

160 


10000 DATA 32 , 32,32 , 32 , 32 , 32 , 32 , 32 , 252,9 

,“i ( qo pi ^ qq t 03 ( qo t } o o ( pjp.' t o o 

10019 BATA32 , 32 , 32 ,32,32, 

60 . 236 . 32 . 32 . 32 . 32 . 32 . 32 , 

10020 BRTR32 , 32 , 32 , 32 , 32 , 

236.32.32.32, ~ ~ " " " 

10030 DATA32, 

, 160, 38, 168, 1 
10840 DATA32, 

, 168, 160, 160, 160, 126,32,32,32,32,32 

1 6050 B RTR32 , 32 , 32 , 32 , 46 , 32 , 1 60 , 1 63 , 1 68 , 

1 68 . 1 60 . 1 68 . 1 68 . 32 . 32 . 32 . 32 . 32 . 32 

1 0860 DATA32 ,32,32,32, 32 , 1 @8 , 188,1 60 ,168 
,160,1 68 , 1 68 , 1 26 , 32 , 32 , 32 ,32 , 32 , 32 
1 0870 BRTR32 , 32 , 32 , 32 ,32,32,245,160,1 68 , 

1 68 . 1 68 . 1 28 . 1 26 . 32 . 32.32 . 32 . 32 . 32 

1 @880 DATA32 , 32 , 32 , 32 , 32 , 1 26 , 244 ,118 , 1 60 
,168 , 1 60 , 1 60 , 252 , 32 , 32 ,32,32 , 32 , 32 
1 0098 BRTR32, 32, 32 , 32 , 32 , 32 , 126, 254 , 1 68 , 

1 60.160.1 60 . 1 60 .97. 32 . 32 . 32 . 32 . 32 

1 0 1 08 BRT R32 , 32 , 32 , 32 , 32 , 32 , 32 , 1 68 , 1 68 , 1 

68.1 60 . 1 68 . 1 60 . 252 . 32 .32.32 . 32 . 32 
18110 DATA32 ,32, 32 , 32 , 32 , 32 , 32 , 1 26 , 1 1 9 , 2 
54 , 1 6@ , 163,1 60 , 1 68 ,121,32, 32 , 32 , 32 

1 0 1 20 DRTR32 , 32 , 32 , 32 , 32 , 32 , 32 , 255 , 32 , 1 1 

8 .160.163.1 60 . 168.1 60 .123. 32 . 32 . 32 

1 © 1 38 BRTR32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 

254 . 1 68 . 1 68 . 1 63 . 1 60 . 1 60 . 32 . 32 . 32 

10148 DATA32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 

160. 160. 160. 160. 1 60 . 223 . 32 . 32 . 32 

1 8150 BRTR32 , 32 , 32,32, 32 , 32 , 32 , 1 26 , 248 , 2 

54. 160. 168. 160. 168. 160. 160.223.32.32 

1 0 1 60 BRTR32 , 32 , 32 , 32 , 32 , 32 , 32 , 226 , 1 60 , 1 
63, 168, 168, 168, 160, 163, 163, 252, 93, 123 
1 0178 HRTR32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 1 68 , 1 6 
8, 160, i 60, 160, 160, 160, 168, 168, 163, 160 
1 @ 1 88 BRTR32 , 32 , 32 , 32 , 32 , 32 , 1 08 , 254 , 1 60 , 
163, 160, 160, 168, 168, 163, 168, 168, 160,236 
1 8 1 90 BATA32, 32 , 32 , 32,32,124, 236 ,251,1 63 
, 163, 160, 168, 168, 163, 160, 168, 168, 160,32 
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1 8208 DRTR32 , 32 , 32 , 32 , 32 , 32 ,32,32,124,1 2 
0, 160, 160, 168, 160, 168, 192, 132,38, 123 
1 82 1 8 DflTfl32 , 32 , 32 , 32 , 32 , 32 , 32 , 254 , 247 , 2 
54, 160, 168, 168, 160, 160, 168, 168, 160, 126 
1 8220 DRTR32 , 32 , 32 , 32 , 32 , 32 , 1 88 , 1 60 , 1 68 , 
160, 160, 168, 160, 128,233, 128,226,32,32 
18230 DRTR32, 32, 32, 32, 32, 254,239,251, 236 
,32,32,99, 32 , 32 , 32 , 32 , 32 , 32 , 32 
10240 HfiTfi96, 175, "CLWVB" 


1 0258 DRTR73 , 235 , " CORNWALL " 
18260 DRTR79, 199, "DVFEB" 

1 0278 DRTR99 , 208 , 11 GWENT " 


10 

280 

10 

290 

1 8 

308 

10 

319 

10 

320 

10330 

10 

340 

18 
1 Ci 

350 

J. *0 

10 

o o u 

378 


18380 

10390 


DATA 1 29 , 222 , " HfiMPSH IRE” 
DRTR143, 158, "HUMBERSIDE" 
DRTR163, 216, "KENT" 

DATA 105, 168, “MERSEVSIDE" 
DRTR165, 186, "NORFOLK" 
DATA 135, 146, "YORKSHIRE" 
DATA116, 116, "BORDERS" 
DRTR116, 185, "FIFE 
DATA 124, 76, "GRAMPIAN" 
DRTR9S, 68, "HIGHLRHD" 
DATR111, 114, "LOTHIAN" 
DRTfll 16, 36, "TRYSIDE" 
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Village 



You have just been appointed the chief of a village of natives whose 
lives depend on their crops of wheat. If you manage the crops prop- 
erly then the village will prosper and the population will increase 
but should you make a mistake then people will starve, people will 
die and you will be attacked by an angry mob. 

By the way, your people need about 2 x /i bags of wheat each to sur- 
vive for a year. Give them less and they starve and they won't like 
that. If you give them 5 bags each they will be pleased and may for- 
give you for past mistakes. 

Look out as well for the rats which always attack your crops in the 
warehouse. The more you store, the greater will be the losses from 
rats. 


1 6 Village 


How to play 

The screen will show you that you are in your first year as leader. 
You will begin with a certain population and a certain amount of 
wheat. There are symbols for people and sacks of wheat and each 
symbol represents ten units. The computer will ask you how much 
of your wheat you wish to sow. Remember to keep some back as it 
might be a bad harvest. 

The computer will then tell you how much wheat you have grown 
and you will be asked how much you wish to give your people. 

Try and survive ten years as leader. 

Program 

^ |7| p j£ [■ i'[ $ $ $ jrl>* & |l{l; iljf •&; $ $ ;l)r & 'ti $ jjj>’ 

£0 REM # VILLAGE * 

£2 REM # * 

£4 REM * # 

2 pi P P {’•'I ;)!> ;lj^ ;&• ’it \if ;.j> ji- jut \lr, $ $ & -A- ^ 

30 PQKE52 .. 43 : P0KE5S .. 43 : CLR 
35 P0KE5328 1 0 : POKE53230 , 8 
48 RT$=CHR$( 1 7 ) FORT* 1 T06 : RT$=A7$+AT$ : HE 
XTT : RT$=CHR$(19)+RT$ 

58 GOSUB7008 : PR I NTCHR$ ( 1 47 ) : GOSUB 1 0000 

130 SF=0 

140 POP- 100 

150 WHT=250 

160 VR=T 

170 flNG=0 

180 RE=2. 4 

190 GO SUBS 08 

230 GOSUB 1080 

210 REM # IS R GRAPHIC CHARACTER 
220 PR I NTLEFT$ ( RT$ , 8 ) SPC (17)" ### " 


238 

PRINTLEFT* 

(AT$. 

9) S 

pcas> n 

#■ # M 

248 

PRINTLEFT# 

(AT$. 

10) 

SPC ( 

15) 

1 1 JJ. JJ. 1 ! 

tf if 

258 

PRIHTLEFT$ 

(RT$. 

1 1 > 

SPCC 

1 5 ) 

"it #" 

268 

PRINTLEFT$ 

(RT$. 

12) 

SPCC 

15) 


278 

PRINTLEFT* 

(RT$; 

1 3 ) 

SPC( 

16) 

"# #" 

288 

PRINTLEFT* 

(81$; 

14) 

SPC C 

17) 

"###" 

298 

PRINTLEFT* 

(RT$; 

11) 

SPC c 

18) 

;CHR$<36> 


294 GOSUB300 



Village 17 


296 

GOSUB330 

300 

PRINTLEFT* 

PULAT I ON : "CHR: 

306 

WHT--INT ( WH 

310 

PRINTLEFT* 

ERT : 

"CHR$<5>;! 

3 ij 

PRINTLEFT* 

EAR ; 

"CHR$<5>;' 

322 

RETURN 


•“> A 


330 HV3=INT(RHDa)*3) + i 
I FH VS= 1 THENfi$= " POOR " 
IFHVS=2THEHfi$="FRIR" 

33S I FHVS=3THENR$= " GOOD " 

338 M$==" THE WITCH-DOCTOR PREDICTS R 

" +fl$+ " HARVEST ” : GOSUB 1 1 00 

339 PR I NTLEFT$ ( fiT$ , 2 1 ) SPC ( 0 ) " 


349 POKESO+ 1 , 25 : P0KES0+4 .. 33 : FORTT® i T028 : 
NEHTTT : P0KES0+4> 32 

34 1 PR I NTLEFT$ ( RT$ .. 2 1 ) SPC < 0 ) ; 

342 INPUT" HOW HUGH SEED WILL VOU SOW 

" ; P;ii$ 

344 I FVRL < SD$ ) < 1 THENG0T0339 

345 SD=VflL<SD$) 

358 IFSD>WHT THEN H$="VOU DO HOT HAVE " + 
STR$ ( SD > + " BAGS " : G0T03S5 

360 I FSD>POPTHEHM$= " THERE ARE NOT ENOUGH 
PEOPLE TO SOW 

36 1 I FSD>POPTHENM$=Mf +STR$ < SD > + " BAGS " : G 
0T03S5 

362 00T0379 

3bO GusUB 1 ioy ■ uuTussy 
370 CRF'~ I NT < RHD ( 1 ) *2#HVS#SD ) 

372 WHT=WHT-SD 
374 GOSUB300 : GOSUB 1 000 
376 FORDL= 1 TO20O8 : NEXTDL 
388 fl$="VOUR CROP WAS "+STR$(CRP>+" BAGS 
OF WHEAT" : GOSUB 1100 

384 I F CHVSO 1 ) AND ( CRP< 1 . 5*SD > THEHM$= " EVE 


N +ITCH 

-DOCTORS CRN BE WRONG 

400 

WHT 

=WHT+CRP 

434 

bOb 

UB300 

405 

GOS 

UB i GOO 

407 

nnr 

r r-. i 

NTLEFT$ < RT* , 28 ) SPC ( 8 ) 

;; 

408 

PR I 

NTLEFT $ < RT$ .. 20 ') SPC < 0 ) 
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409 POKESO+ 1 .. 30 : P0KES0+4 , 33 : FORTT= 1 TO20 : 
NEXTTT:P0KESQ+4,32 

419 INPUT" HOW MUCH WHEAT WILL VOU GIVE 

TO VOUR PEOPLE ";ET$ 

411 I FVAL (ET$)<1 THENGOTO408 

412 ET=VflL(ET$> 

413 I FET>WHTTHENM*= " VOU DO NOT HAVE " +ST 
Rf CET)+" BAGS ! " : OOSUB1 100 : PRINT : GOTO406 

414 I FET <PGP#AETHENM$= " VOUR PEOPLE 

ARE HUNGRt ! " : GOSUB 1 1 00 : SF= 1 

416 IFET>P0P#AE#2THENM*=" VO!JR PEOPLE 
ARE HAPPV ! " : GOSUB 1 1 08 = ANG=AHG+ 1 

420 WHT=WHT-ET 
422 GOSUB308 
424 GOSUB 1080 

430 FURJ=2dTu29 STEP2 
440 F0EK=5T018 

450 POKESO+1 , 20-K : P0KES0+4, 33 : F0RTT=1T02 

0 : NEXTTT : P0KES0+4, 32 

460 PR I NTLEFT* <AT$, l< ) SPC ( J ) ; CHR$ < 38 ) 

480 PR I NTLEFT* ( RT$ , K ) SPC ( J ) " " 

49@ NEXTK 

500 FORDL=1TO50:NEXTDL 
510 NEXTJ 

5 1 2 RTS= INK RND < 1 > *WHT/4 ) 

514 M$="RATS ATE "+STR$(RTS)+" BAGS OF W 

HEAT" : GOSUB 11 00 

516 WHT=WHT-RTS 

5 1 8 GOSUB330 : GOSUB 1 888 

520 IFSF=0THENGOTO708 

530 BD= I NT ( RND ( IX. 5* < POPfcAE-ET > ) + 1 

534 IFDB>=POP THENDB=FOP-i 


548 M$=STR$<BB>+" OF VOUR PEOPLE HAVE BI 
ED OF STARVRT I ON ! ” : GOSUB 1 1 88 

544 FOP=POP-DD 
550 GO3UB303 • GOSUB906 

560 M$=" VOUR PEOPLE ARE RNGRV!":GOS 
UB1 100 

570 ANG=ANG+! 

588 I FANG=3THENM$= " VOU HAVE LET TOO MAHV 
PEOPLE STARVE." 

585 IFANG=3THENM$=M$+" VOUR PEOPLE W 
ANT A NEW LEADER! " : GOSUB! 180 : GOTO870 
598 FORJ=i TO POP/ IS 
6 0 0 I F . J y 1 i-j THE H U U 1 06 8 8 
6 1 @ PR I NTLEFT* C AT* , 9 ) SPC < J+2 V " 
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628 PR I NTLEFT# ( AT# , 8 > SFC < .J+2 ) CHR# ( 36 ) 

638 POKESO+ 1 .■ K+5 : P0KES0+4 .. 33 : FORTT= 1 1028 
: NEXTTT : P0KES0+4, 32 


648 

FQRJDL= 1 T05 : NEXTBL 




650 

PR I NTLEFT# < AT# , 8 ) 

SPC( 

J+2) !: !i 


668 

PR I NTLEFT# (AT#, 9) 

SPC< 

J+2 ) CHR 

* (36) 

6 ( ”8 

F0RBL=1T018 : NEXTD 

L 



688 

NEXTJ 




698 

G0T0748 




708 

PC= I NT ( RNB ( 1 ) &HHT 

#.5/ 

RE) 


719 

M#=STR#(PC)+" PEC 

Pi P 

JO I NEB 

your vil 

LfiGE! " :GOSUB1108 




728 

POP-P0P+PC 




738 

GOSUB380 




748 

G0SUB988 




758 

SF=0 




768 

VR=VR+1 




778 

M$=" ANOTHER VEAR 

HAS 

PASSED. 

” : 003UE1 

180 





798 

1 r VR- 1 1 i HEHOOT 082 

9 



889 

G0T0294 




858 

PR I NTLEFT# (AT#, 17 

)SPC 

(8) "WEL 

L DONE! 

vou 

COMPLETED VOU 18 

VEAR 

S IN 

OFFICE. 11 

860 

PR I NTLEFT# (AT#, 20 

)SPC(8) " 

YOUR S 


CORE IS I NT < ( POP+WHT/AE > * 1 0 > : GOTO 1 1 58 

878 F OR J=POP/’ 1 810 1 2 

872 PR I NTLEFT # < AT# , 3 ) SPO < J ) CHR# ( 36 > 

874 F0RDL=iTG5 : NEXTBL 

876 PR I NTLEFT # ( AT# , 9 ) SFC ( J ) " " 

878 NEXTJ 

888 PR I NTLEFT# < AT# , 1 8 > SPO < 1 3 ) CHR# < 36 > 

88 1 PR I NTLEFT# < AT# , 1 8 > SPC (13)" " 

884 PR I NTLEFT# ( AT# ,11) SPC ( 1 4 ) CHR# ( 36 ) 

885 FORBL= 1 TO 1 8 : NEXTBL 

886 PR I NTLEFT# (AT#, 1 1 ) SPC ( 14)" " 

888 F0RJ=1T05 

898 PR I NTLEFT# < AT# , 1 1 ) SPC < 1 5 ) CHR# ( 1 8 ) ; " 

ll 

094 pr I NTLEFT* < RT$.» 1 1 ) SPC ( 1 5 ) ; CHR* < 36 ) 
896 NEXTJ 


898 GOTO 1150 


90@ 

910 

930 

940 

950 


P*=CHR$(36 
F0RJ=9T015 
FORK- 1 TO 10 
I FPOPCK# 1 0 
PR I NTLEFT* 


* ) W - 1 


(RT$. J)S 


■8THEMP* : 
C ( K+2 ) ■ i 


H ii 


p&>: i 


.. 1 , ! 


P* 
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952 I FPOP <K$ i 0 + ( J-9 ) $ 1 00THENGQTO9S0 

955 PCKESO+ 1 , K+5 : P0KES0+4 , 33 : FORTT= i TO20 

: NEXTTT : POKESO+4, 32 

957 FORTT=1TQ20 : NEXTTT 

960 NEXTK 

970 HEXTJ 

980 RETURN 

1000 P$=CHR$<37> 

1010 FOR.J=9T015 
1030 F0RK=1T01S 

1840 I FWHT <K# 1 8+ < J-9 ) ■# 1 00THENP$= " " 

1 050 PR I NTLEFT$ < RT$ , J ; SPC < K+24 > ; CHR$ < 1 58 
> ; P$ 

1052 I FWHTCK# 1 0+ ( J-9 ) $ 1 80THEH0OTO 1 860 

1055 POKESO+l , K+10 = POKESO+4.. 17 : F0RTT=1T0 

20 = NEXTTT = POKESO+4, 16 

1068 NEXTK 

1070 HEXTJ 

1030 RETURN 

1100 PR I NTLEFTf < RT$, 19 ) SPC < 3 ) J 11$ 

1110 FORBL= 1 TO2000 : NEXTBL 

•! -I i CD-.t-— » 


1114 SP$=SF ! $+SP$ 

1120 PR I NTLEFT* ( RT$ , 1 9 ) SPC < 3 ) ; SP$ 

1139 RETURN 

1150 PR I NTLEFTf ( RT$ , 23 ) SPC < 3 ) 
i 1 55 I NPUT » PLRV RGR IN" ; 9 $ 

1 168 I FLEFT$ ( Q$ , 1 } = " H " THENEHB 
1 1 70 PR I NTCHRf ( 1 46 > 

1188 GOTO 130 

7880 REM RERB IN GRRPHIC BRTR *** 

7828 PCKE56334 , PEEK < 56334 ) RNB254 

7830 POKE 1 , PEEK < 1 ) RNB25 1 

7840 FOR I =0TO5 1 1 : POKE 1 2238+ 1 , PEEK ( 53248+ 

1 > : NEXT I 

7050 POKE 1 , PEEK ( 1 ) 0R4 : P0KE56334 , PEEK < 563 
34)0R1 

7868 FORI =8TC4$8- 1 : RERBR : POKE 1 2568+ I , R : H 
EXT! 

7095 P0KE53272 , < PEEK < 53272 ) RNB240 ) + 1 2 
7180 RETURN 

8808 BRTR _24 , 68 ,126 , 255 , 1 26 ,182 , 1 02 , 1 @2 
8810 BRTR 24,24, 68 , 98 , 24 , 36 , 36 , 182 
8023 BRTR 0 , 8 , 68 , 68 ,68,68, 68 , 3 
8038 BRTR 28,1 8 , 57 , 57 , 56 , 56 , 56 , 1 6 
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10000 REM SET UP SOUNDS 
10010 90=54272 

1 0020 FORT=0TQ28 : FOKESO+T , 0 : NEXT 
1 0030 POKESQ+ 1,20: R£M p t JCH 
13040 POKESO+5,9 : REM RTTACK/DECfiV 
1 0058 POKESO+S , 240 : REM SUSTfl I N/’RELERSE 
10060 P0KES0+24, 15 : REM VOLUME 
10070 POKESQ+4, 16 : REM WAVEFORM 
10080 RETURN 



3 


Multiplication and 


SUMS: © SCORE: •• © 

6406 25 * 210200 

286 X 56 ® 16016 

5879 X 16 » 94.064. 

0719 X ©4. = 732296 

3145 X 39 ■ 122655 

7133 X ©1 *« 435113 

6092 "X 94 * 566726 

1584 X 38 a 60192 


The first thing you have to do before you begin to play this brain 
teaser is to put your calculators away in a cupboard and bring out 
your pencils and paper. This game is a test of your mental ability 
and agility. No cheating, now, by using any help. 

Howto play 

Your computer will begin by asking you if you wish to play multip- 
lication or division. 

Type M or D then press RETURN. 

You will then be given a simple multiplication question such as 
1436x26. 



73 239,6 


572648 
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If you are correct, you will hear a triumphant sound and you will 
see Correct in green. 

If you are wrong, you will hear a rather nasty noise and the screen 
will display the word WRONG in red. 

The program will run for a total of twenty sums and will then give 
your grand total of correct answers against attempts. 

If you wish to change from one type of sum to another you can wait 
until you have answered your twenty questions then press RUN. 


Program 


19 REM if if: if: if: if: if if: if: if: if: $ if if: if: % if: :f if ;f $ 

20 REM if: MULT I PL I ChTI ON * 

22 REM % RNP if 

24 REM * DIVISION # 

25 REM $ if: if: if if: if: :f: if: :f: if: if if if if if : .f: if if if f 

26 POKES 2 , 48 : PQKE56 , 48 : CLR 

30 RT*=CHR$ < 17): foRT= 1 TOS : RT$=RT$+RT$ : HE 
KTT •' fiT $=CHR$ (13) +AT $ 

35 G0SUB7000 : GOSUB i 0000 


POKE532S0.. 


328 1 3 : PR I NTCh'Rf ( 1 


40 S 

;M=@ 




50 S 

;C=0 




100 





110 

BRTR0, 24, 

07 2 

55. 255. .0.24,. 

0 

120 

DRTR0, 1 , 3 

7 6.' 

140,216,112, 

o o 

130 

DATA 195, 1 

02. 

68,24,60, 102 

, 195, 129 

140 

P0KES0+4, 

17: 

FORT=1TO40 : N 

EXTT : PGKESQ+ 

4, 16 





ISO 

PRINT" 


MULTI PLICATION OR DIVIS 

ION 

ll 




155 

■£ 

INPUT" 


M OR D < + 

RETURN) ";C 

160 

IFLEFT$(C 

$, 1 

) = "M" THEN'S# 

-"X" : GOTO i 90 

170 

I FLEET# <0 

| 

sh ■! 

1 

>="D M THENS$= 

CHR$<35) : GOT 

U 1 
180 

GOTO 150 




190 

PRINTLEFT$<fl 

T$, 5>SPC<6> " 

ll 


195 

IFS$=CHR$ 

(35 

.) THt N G U T 0 2 6 0 
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200 R 1 = I NT ( RND ( 1 ) *9000 ) + i 00 
210 R2=INT<RNDa>*100) + l 
220 F0KES0+4 ,17: FORT- 1 TO40 : NENTT 
4, 16 

230 Cfi=Rl*R2 

240 PR I NTLEFTT < RT$ , 5 ) SRC ( 6 ) R 1 !! J! 


P UK.E3U+ 


S$; Jl !i R 


250 GOTO310 

260 R1 = I NT ( RND ( 1 ) * 1 00 ) -f \ 

270 R2= I NT ( RND C 1 ) * 1 03 ) * i 
280 Cfi=Rl 

230 PR I HTLEFTT- ( RT$, 5 ) SPC < 6 ) R 1 *R2 ; " !i ; S$ ; 
i: 1 1 \ r 2 ! ! = 11 ; 

3 0 8 P U K bSQ’M , 1 7 ; FORT = 17 0 4 0 : N E X T T ; P 0 K E S 0 + 
4, 16 

310 INPUTfiNS 

3 1 5 PR I NTLEFTJ ( RT$ , 7 ) SPC ( 6 ) ,! 

ii 

320 PR I NTLEFT* < RT $ .• 7 ) SPC ( 6 ) RHS ; 

330 SM=SM+1 

340 I FRHS=CRTHENGOT0380 

350 P0KES0+4, 1? : FORT=1TO40 : NEXTT : POKESO+ 

4.. 16 

360 PRIHTCHR* (37) ; " 

364 PRIHTCfi 
370 GOT 04 1 0 

3S0 POKESU+ 1 30 * POKtSU+4 .. 17 ■ hQRT— 1TO1G0 ' 
NEXTT : P0KES0+4, 16 : POKESO+ 1 .■ 20 


390 

PRIHTCHR*< 

36) 



400 

SC=SC+ i 




410 

PRINT : PR IN 

T 



420 

IFSM=20THE 

NG0T046 

0 


430 

PR 1 NTLEFT* 

(AT*, 1) 

r- pf 

(5)" SUMS: "JSM 

440 

PR I NTLEFT* 

(AT*; 1 > 

SPC 

(17) "SCORE: ";SC 

44 

PR I NTLEFT* 

(AT*, 2) 

SPC 

( 0 ) !! 

n 

.•1 .< r\ 
-f’i-O 

PR I NTLEFT* 

( RT$ , d ) 

SPC 

(0)" 

450 

GOTO 1 90 




460 

F0RDL=1T02 

50 : HEX7BL 


4 r U 

F'RINTCHR*< 

146) 



480 

PR I NTLEFT* 

(AT*, 8) 

SPC 

(6) iM r'0U HAD "SC” 


CORRECT ANSWERS" 

490 PR I NTLEFT * < AT* , 1 8 ) SPC < 8 ) " OUT OF 20 Q 
UESTIONS. " 

500 END 
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700W RtM RhfiB iN hRRFHIC DfiTfi $$$ 

7020 P0KE56334 . PEEK ( 56334 ) RND254 

7030 POKE 1 , PEEK < 1 ) RHD25 i 

7043 FOR I =0TO5 1 1 : POKE 1 2283+ 1 , PEEK (53248+ 

I >: NEXT I 

7059 POKE 1 .. PEEK < 1 > 0R4 : P0KE56334 , PEEK ( 563 
34 ) OR i 

706a F OR I — ©T023 • RERDR • POKE 1 2568+ 1 ,■ fi : NEXT 


7095 P0KE53272 , ( PEEK < 53272 > RNB240 ) + 1 2 
7100 RETURN 

10000 REN SET UP SOUNDS 


1 00 1 0 

30=54272 




10020 

FORT=0TO 


POKES 

Ih-T .i @ : HtX i 

10030 

POKES 0+ 1 

1 20 

• REM 

PITCH 

10040 

POKES 0+5 

J? 

; REM 

RTT RCK/DECR V 

10050 

•j lyi (vl lT lyl 

PuKEb‘U+6 

A *1 

0 : REM 

cr * nr-M 

3USTRIN/RELERS 

10070 

P U K E o Li + 4 

'-r.« i 

, 16 

•J * "CL! ! 

:REM 

NR'v'EFORM 

1 @080 

RETURN 






4 

Addition and 
Subtraction 


SUMS: 10 SCORE: 6 


4.351 

1150 


32113 


CORRECT ! 



When you cover other sums programs in this book you will find 
that we recommend that you don’t use pencils, paper or calculators 
because you probably won’t have them the next time you are sent 
out to shop for your parents. It helps to be able to do your own 
sums in your head because it might save you having to go back to 
the shops because you didn’t have enough money the first time you 
went. 


Howto play 

We have made this game look just like it would on your school pap- 
ers. You even fill in the totals by putting the numbers in from right 
to left just like you do in your maths books. 

If you get a correct answer a little blue munchman will run across 
the screen and eat away the whole sum. 
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If you are wrong however the munchman will only eat away the 
incorrect answer and you will have to try again. 

Give your munchman a full stomach by getting as many correct as 
you can because the score board will show how many tries and how 
many mistakes you made. 


Program 


10 REM ************************ 

20 REM * ADDITION * 

22 REM * AND * 

24 REM * SUBTRACTION * 

25 REM ************************ 

27 P0KE52 48 : P0KE56 , 48 : CLR : GOSUB7088 : 008 
UB 10088 

30 RT$=CHR$'s 17> : F0RT=1T06 : RT$=AT$+AT$ - HE 
XTT:RT$=CHR$<19)+RT$ 

35 POKE53280 .. 4 : P0KE5328 1 , 1 5 
40 SC=0 
58 SM=8 

60 P0KES0+4 > 17 : P0KES0+ 1 , 38 : F0RDL= 1 TO 1 88 : 
NEXTDL : P0KES0+1 , 0 : P0KES0+4, 16 
64 PRINTCHR$( 147) 

1 68 fl= I NT ( RHD < 1 ) *48880 > + 10808 
178 E=INT ( RND ( 1 > *48083 > + 1 8886 
198 SN=1 

200 I FRND (1 » . 48THENSN=- 1 

284 IFSNC0 AND <A-BK 18080 THEN GOTO 1.68 

2 1 0 PR I NTLEFT $ C AT* , 9 > SPC < 1 6 > ; A 

228 PR I NTLEFT* < AT* , 1 3 > SPC ( 1 6 > ; B 

238 PRINTLEFT*<AT*.. 1 1 >SPC< 17> j " " 

248 PR I NTLEFT* ( AT* , 1 3 > SPC <1 7 > ; " 

258 I FSN60THENPR I NTLEFT* < AT* , 9 > SPC C 23 > ; " 




270 CA=R+B*SN 
283 SM=SM+1 
290 A*=" " 

300 PR I NTLEFT* < AT* , 1 > SPC < 5 > j " SUMS : " ; SM ; 
CHR*<157>; " " 

384 PR I NTLEFT* < AT* , 1 > SPC ( 25 > ; " SCORE : " ; S 
C;CHR$<157>;" 

310 GETK* 
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3201 FK$= " " THENG0T03 1 9 

336 IFK#>"9" OR KK"0" THEN G0T0318 

349 : 

344 FORD=1TO20 : NEX7B 

359 fi#=K#+R# 

354 PR I NTLEFT# < FIT# , 1 2 ) SPC C 22-LEN < A# > ) ; R# 

360 IFLENCA$)05 THEN OOTO 310 
370 I FVRL ( AS ) =CR THEN GOTO 480 

OO’d 

338 PR I NTLEFT $ C AT# , 1 7 ) SPC C 14).;" TRV RGB I N 
! " 

400 F0RJ= 127025 

410 PR I NTLEFT# C AT# , 1 2 ) SPC < J > ; CHR# C 36 ) 

428 POKESO+1 , J : P0KES0+4, 129 : FORBL--1TO100 

: NEXTBL : P0KES0+4, 128 

449 PR I NTLEFT # C RT# , 1 2 ) SPC ( J ) ; " " 

458 NEN7J 

460 PR I NTLEFT# CRT#; 17) SPC < 14);" 

1) 

478 OOTO2S0 
480 • 

499 PR I NTLEFT# C RTS ,17) SPC C 15);" CORRECT ! " 

500 SC=SC+1 

5 1 0 P0KES0+4 ; 33 ; FOR J=3T0 1 3 
520 F0RK=12T025 

530 PR I NTLEFT $ C RT# , J ) SPC C K ) ; CHR# C 35 ) 

540 P0KES0+ 1 K$J/2 '■ P0KES0+4 .. 33 : FORDL- 1 TO 
50 : POKESO+4 , 32 

550 PR I NTLEFT # C RTS J ) SPC C K ) " " 

560 NEKTK 
570 NEXTJ 

580 PR I NTLEFT# < RTS ,17) SPC C 1 5 ) ; " 


585 POKESO+4 , 1 6 : POKESO+ 1 , 9 


590 GOTO 160 

7080 REM %W. PERU IN ORRPHIC BRTR ### 
7005 PRINTCHR$C 147) " PLEASE WRIT 

R FEW MOMENTS!" 

7020 P0KE5S334 , PEEK C 56334 ) RNB254 

7930 POKE 1 , PEEK C 1 ) RNB25 1 

7040 FOR I =0TO5 1 1 : POKE 1 2288+ 1 , PEEK C 53248+ 

I ) : NEXT I 

7050 POKE 1 , PEEK C 1 ) 0R4 : P0KE56334 , PEEK C 563 
34 ) OR 1 


7068 FOR I =0TO 1 5 = RERBR : POI 


; .r i 


L ir“«..«“T 

nc.A i 


i 
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7078 IiRTfi 60 ,126,219, 255 , 189, 1 95,126 , 68 
7880 DATA 60 , 1 26 ,219, 255 , 1 95 , 189,1 26 , 63 
7895 PQKE53272, <PEEK<53272>RND240>+12 
7108 RETURN 

10000 REM SET UP SOUNDS 
10010 80=54272 

1 0820 F0RT=8T028 : POKESO+T , 8 : HEKT 
10340 F'OKESCi+5, 9 :REM ATTACK, '■'DECRY 
1 @050 P0KES0+6 , 24 : REM SUSTfl I H/RELERSE 
10860 P0KES0+24, 15 : REM VOLUME 
18070 POKESO+4, 129 : REM WAVEFORM 
10083 RETURN 



5 


Sum Difference 



We thought about calling this game 'some difference’ as it isn't 
nearly as easy as it looks at first. 

You are being told by your computer that it is thinking of two 
numbers between 1 and 20. It will tell you the total sum and the 
difference between the two numbers. All you have to do is 
correctly guess the answer. 

Example: The sum of the numbers is 13 
The difference is 9 
What are the numbers? 

Answer 2 and 11 


Simple isn’t it? 
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7070 DATA 60 ,126,219, 255 , 1 83 ,135,1 26 , & 
7080 BATA 6@ , 1 26 ,219, 255 , 1 95 , 189, 126, 6s 
7835 P0KE53272, <PEEK<53272>RND240>+12 
7108 RETURN 

10300 REM SET UP SOUNDS 
13010 80=54272 

1 0820 FQRT=0TO28 : POKESO+T , 8 : NEXT 
10043 F'OKESO+5, 9 : REM RTTRCK/DECRV 
1 8050 POKESO+6 , 24 : REM SUSTfl I N/RELE ASE 
10060 P0KES0+24, 15 : REM VOLUME 
10078 P0KES0+4, 129 : REM WAVEFORM 
10089 RETURN 
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Sum Difference 


SCORE: 0 HI SCORE: 0 

SS TU0 NUMBER!S 

THE SUM OP THE NUMBERS IS 27 
THE DIFFERENCE IS 3 



We thought about calling this game ‘some difference’ as it isn’t 
nearly as easy as it looks at first. 

You are being told by your computer that it is thinking of two 
numbers between 1 and 20. It will tell you the total sum and the 
difference between the two numbers. All you have to do is 
correctly guess the answer. 

Example: The sum of the numbers is 13 
The difference is 9 
What are the numbers? 

Answer 2 and 11 


Simple isn’t it? 
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How to play 

Y our computer will tell you the sum of the numbers it is thinking of 
and the difference and ask for your answers. 

After each number press RETURN. 

If you are correct the score increases on the top of the board. 

As you become better at this game the computer will move the 
range of numbers from 1 - 20 to 1 - 25 and so on. 

A wrong answer will end the game completely and you will be 
asked if you wish to compete again. High scores will be recorded on 
the screen to allow you to compete for the high score title. 


Programming Hints 

You can make the game tougher from the very beginning by 
increasing the value in line 50 so that the range is wider 
immediately. 


Program 


10 REM 

20 REM SUM DIFFERENCE # 

22 REM * % 

24 REM % * 

25 REM 

30 f)T$=CHR$ ( 1 7 > : F0RT= 1 TOS : fiT$=flT$+fiT$ : HE 
XT! ; RT $=CHR$ < 1 9 ) +RT % 

33 PGKE53280 , 6 • P0KE5328 1 .. 9 
35 GOSUB 1G000 
40 HS=0 

59 MflX=20 

60 SC=8 

70 PRINTCHR$< 147) 

80 PR I NTLEFT$ ( RT$ , 2 ) SPC < 4 ) CHR$ < 1 44 > j " SCO 
RE= ";chr$<5)jsc 

90 PR I NTLEFT$ < RT$ , 2 ) SPC Q 9 > CHR$ (1 44 ) j " H I 
SCORE : " .: CHR$ ( 5 ) .: HS .: CHR$ ( 39 ) 

180 R 1 = I NT < RNB ( 1 ) #MflX ) + 1 
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110 R2=INT<RND<l)#MfiX)+l 
1 20 I FR2>=R 1 THENGOTO 1 00 
1 25 P0KES0+ 1 25 : P0KES0+4 .. 17 : FORT* 1 TQ30 : H 
EXIT : POKESO+4, 16 

130 PR I NTLEFT * < RT* , 4 ) SPC < 2 ) " I AM THINK I H 
G OF TWO NUMBERS BETWEEN 1 AND " ; MAX 

1 33 FORBL= 1 TO5O0 = NEXTDL 
1 35 POKESO+ 1,22: POKESO+4 ,17 = FORT* 1TG30 : N 
EXTT : POKESO+4, 16 : PRINTCHR*<159) 

140 PR I NTLEFT * < RT* , 7 ) SPC < 2 ) ; " THE SUM OF 
THE NUMBERS IS ";CHR*<5),’R1+R2 
1 43 FORBL= 1 TO50O : NEXTDL 
1 45 POKESO+ 1 , 29 : POKESO+4 ,17: FORT* 1 TO30 : N 
EXTT : POKESO+4, 16 = PRINTCHR*< 158) 

1 58 PR I NTLEFT* < AT* , 9 ) SPC ( 2 ) " THE D I FFEREN 
ce is ";chr*<5);ri~R2 
1 53 FORDL* 1 TO580 : NEXTDL 
1 55 POKESO+ 1,25: POKESO+4 ,17: FORT* 1 TO30 : N 
EXTT :.P0KES0+4, 16 : PRINTCHR* < 152) 

1 60 PR I NTLEFT * < AT* , 1 1 ) SPC < 2 ) j : I NF'UT " WHfiT 
IS THE FIRST NUMBER’ 'UNI 
1 62 POKESO+ 1,10: POKESO+4 , 1 7 : FORT* 1 TO30 : N 
EXTT : POKESO+4, 16 : PRINTCHR*<152) 

165 PR I NTLEFT* < AT* ,13) SPC (2) ; '• I NF’UT " WHRT 


TS 


FHE SECOND NUMBER ";N2 


1 67 POKESO+ 1,10: POKESO+4 ,17: FORT* 1 TO30 : N 

EXTT: POKESO+4, ig 

1 78 I FN 1 *N2THENG0T0 1 90 

180 IF < < N 1 =R 1 ) OR ( N 1 =R2 ) ) AND ( < N2=R 1 ) OR ( N2 

=R2) )THENOOTO280 

1 98 FORDL* 1 T058 : NEXTDL ; POKESO+4 , 33 

1 92 F0RDL=58T02STEP-2 : FORT* 1 T028 : POKESO+ 

1 , T+DL : NEXTT 

194 NEXTDL: POKESO+4, 16 

1 96 FORDL* 1 TO500 : NEXTDL : PR I HTCHR* < 1 44 ) 

208 PR I NTLEFT* < RT* ,16) SPC ( 2 ) CHR* < 144) J " T 

HE TWO NUMBERS WERE 

202 PR I NTCHR* < 5 ) R 1 CHR* < 1 44 ) ; " RND " ; CHR 
*<5) R2 : PRINTCHR$<5) 

2 1 0 PR I NT " " R 1 CHR* (144);" + "; CHR 



R2; CHR* <144); "=";CHR*( 
'R I NTCHR* C 5) 


;R1+R2 


nr i t i it ii 

r r-. i. ri i 


;R2;CHRi 


44 ) J 


”Ri;CHR$a44); M - M ; CHR 
11 = ; f:HR$ ( 1 50 ) ; R 1 -R2 


PRINT 


238 PRINT 11 


VOUR SCORE IS ” ;SC 
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240 IFSC>H8THENHS=SC : PRINT" Fi NEW 

HIGH SCORE!" 

258 PR I NTLEFT % \ RT$ , 24 ) SPC ( 1 1 ) CHR* < 1 54 ) ; : 
1NPUT"PLRV RGRIH ";Q$ 

268 I FLEET* ( Q* , 1 ) = " H " THENENB 
264 GOTO50 

289 PR I NTLEFT* < RT* , i 6 ) SPC < 8 ) ; CHR* ( 1 56 ) ; " 
THRT IS CORRECT!" 

282 P0KES0+4.. 17 

285 FORDL=20TO69STEP2 ; FORT= 1 TO303TEP3 : PO 
KESO+1 . T+BL : P0KE53289 > BL : HENTT 

290 NEXTBL : POKESQ+4; 16 
2S5 FORBL= 1 TO580 : NEXTBL 
309 SC=SC+ 1 

318 MRX=MRH+5 
320 GOTO70 

10808 REM SET UP SOUNDS 
18010 S0=54272 

1 0020 FORT=0TO28 : POKESO+T , 0 : NEXT 

1 0039 POKESO+ 1.20: rem pitch 

10040 P0KES0+5. 9 : REM RTTRCK/BECRV 

1 0059 POKESO+6 . 240 : REM SUSTR I N/RELERSE 
18068 P0KES0+24. 15 : REM VOLUME 
10070 PQKES0+4, 16 ; REM WRVEFORM 
10089 RETURN 
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Bar Chart 



If you are planning to keep a record of how tall you have grown, or 
the height of a plant, or the rainfall in your garden, or the 
temperature changes, or how much pocket money you have been 
spending on sweets, toys or even computer games then this is for 
you. 

The computer will draw you charts in six different colours so that 
you can lay one colour over another to show how much, or how 
little, change there has been since the last time you checked. 


Howto play 

Your computer will show you an upright (perpendicular) line and 
a base (horizontal) line and will ask you first to decide the values 
you wish to use. This means that you have to decide if you want the 
chart to rise two, five or even ten units at a time. 
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You will be asked for the maximum value of the chart. You have 15 
items so you may choose whether to work on days, months or any 
period of your choice. For example, if the temperature on the first 
day had been 24 Centigrade then you type in 24, and for the next 
day, 22, and so on. At the end of two weeks you will have finished 
14 numbers and will see the high and low temperatures for the 
period covered. 


Program 


10 REM 

20 REM * * 

22 REM * BAR CHART' * 

24 REM * * 

25 REM 

30 ATT=C'HRT(17> : FOR7=1TOS : AT$=AT$+ATT : HE 
NTT : AT T=CHRT (ISO +AT T 
35 P0KE5328 1,2: P0KE53288 , 2 
40 PRIHTCHRT( 147) 

50 : 

38 PRINT" WHAT IS VOUR MAXIMUM VALUE 

(MULTIPLES OF 28)”:IHPUTM 
94 I FMC20 THEN PR I NTLEFTT (ATT , 1 0 ) SPC < 1 1 ) 
"TOO SMALL !": G0T098 

1 00 I FM> 1 08THEN PP I HTLEFT $ ( ATT , 1 8 ) SPC ( 1 1 

)"T00 BIG: " ; 00T038 

182 INPUT" COLOUR ( 1 TO IS >";C 

104 IFCC1 OR 015 THEN GOTO 162 

108 PRIHTCHRT( 147) 

110 S® I NT (M/20) 

116 P=1 

120 F0R.J=1T019 
124 IFS*J>9 THENP=0 

1 38 PR I NTLEFTT < ATT , 24- J > SPC < P ) ; S*JCHR$ < 1 
57>;CHR:T(1S5) 

134 IFJ=3THENP=28 
140 NEXTJ 
14S N=2 

150 r0RJ=lT018 

154 N=N+2 : JT=STRT ( J ) 

1 55 PR I NTLEFTT ( ATT , 23 ) SPC ( N- 1 > ; CHRT ( 1 75 ) 
* CHRJ^ 175) 

1 56 I FNC5THENPR I NTLEFTT ( ATT , 23 ) SPC < N- 1 > 1 
CHRT (108); CHRT (175) 
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160 PRINTLEFT$(AT$, 24)SPC(N) ; MID$< J$, 2, 1 
) > 

1 65 PR. I HTLEFT* ( AT* , 25 ) SPC ( N ) i M I B* ( J$ ,3.1 


) ; 

170 NEXT J 

1 80 PL$=CHR$ ( i 8 ) +CHR$ ( 32 ) +CHR* (167) +CHR* 
(146) : PL=1 
186 H=3 

1 98 PR I HTLEFT* < BT$ , 2 ) SPC ( 1 0 ) CHR* < 1 44 >J" 


1 95 PR I HTLEFT* ( AT* , 2 ) SPC (10); : I NPUT " VALU 
E(OR END) "JV$ 


200 

I F'v'AL ( V* ) =0THENGOTO3i 

00 

218 

VL=VAL(V$) 


223 

IFVL>M THENVL=M 


225 

P0KE646.C-1 


230 

FORJ-0TOVL/S 


240 

I F J-CTHEHGOTO260 


250 

PR I HTLEFT * ( AT * > 24- J ) : 

spc(H);pl$; 

£68 

NEXTJ 


270 

H=N+2 


280 

I FN>38THEMOOTO300 


290 

GOTO 190 


3 y u 

PR I HTLEFT * ( AT* j 2 ) SPC 

( 18)CHR*( 144) ; 11 

11 

305 

PR I HTLEFT * ( AT* , 2 ) SPC 

( i 0 ) f : I NPUT 11 MU RE 

( V,' 

'N )";Q* 


316 

IFQ*0"V !: THEHEHIi 


•T; •"‘TPi 

PR I HTLEFT* (KT*, 2 > SPC 

( 1 3 ) .! UHk# ( 1 44 ) 11 


325 PRIHTLEFT*(flT*.'2)SPC(l@); : INPUT 11 COLO 
UR (1 Tu 1 b ) “ i U 

333 I FC< 1 0RO16 THEN GOTO 323 

33 1 I FF'L-STHEHF'L^CHR* ( 18) +CHR* ( 32 ) +CHR* 
(167) +CHR* < 146) : F'L= 1 

332 I FPL=2THEHPL*=CHR* ( 1 8 ) +CHR* (157 ) +CHR 
*( 167)+CHR*( 146) • F'L-'3 

335 I FPL** 1 THEHF'L* =CHR* ( 1 8 ) +CHR* ( 1 67 ) +CHR 

#(146):PL“2 

340 GOTO 186 
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Masterbrain 



This is one of the most difficult programs in the book in our opinion 
as you have to really think about every move you make. 

Your computer will choose four coloured pegs and place them in 
four positions in its memory. 

You have to guess what the colours are, how many of each colour 
and in fact what order the computer has placed them . 

You could be sitting here for days so you had better get a biscuit 
and a drink before you start. 


Howto play 


At the beginning you will be asked your age as the game has 
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different levels of difficulty. You could cheat to begin with and say 
you are only five years old - it might make things easier. 

The colours are as follows 

Red 

Cyan 

Purple 

Green 

You are asked for your first guess and you enter your choice and 
press RETURN. 

When you have entered your guesses the computer will show you a 
Black if you are in the right place and with the right coloured peg. 
If you are right with you colour guess but in the wrong column you 
will get a Cyan (blue) peg. If you are wrong with colour and column 
nothing will appear on the screen . 

Now you may know that your first guess of colours is half right you 
have to go on to find out which column the colours are really in. 

You could start by making all the keys 3 (red) and if the computer 
showed you a blank screen then you would know that it hadn’t used 
red and you could ignore that number in your next choice. You can 
go on trying this method but it takes a long time and it will mean 
that your score is pretty awful when it shows the number of moves 
you took, at the end of the game. 

If at any stage you want to give up, type ‘Q’ as your guess. 


Program 

10 REM * # * # * if' * * # * * $ # * $ * $ * * * * 

20 REM * MASTERBRAIN # 

22 REM * * 

24 REM #. * 

25 REM 

30 AT*=CHR* (17): FORT* 1 T06 : AT*= AT*+AT* : NE 
•<’,TT : AT *=CHR* (19) +AT * 

35 POKE53230, 1 : P0KE532SU 1 
40 GM=0 : GOSUB 10080 
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45 BEL*=CHR* ( 1 57 > +CHR* a 57 > +CHR* ( 32 ) +CHR 
* ( 32 ) +CHR* (157) +CHR* a 57 ) 

50 WN=9 
60 TR=TR+1 
70 DIMS (4) 

88 BIML(4) 

85 PRINTCHR*(14S) 

90 INPUT "HOW OLD ARE VOU" ; AGE : F'RINTCHR* ( 
146:' 

92 I FAGEC 1 QRAGE> 1 8THENMAN= 1 0 = GOTO 1 00 
96 MAK=28-AGE 

1 @0 PR I NTLEFT * ( AT* , 6 ) SPG ( 3 ) " COLOURS : " 

110 PR I NTLEFT* ( AT* , 8 ) SPC < 3 > CHR* ( 28 > J CHR* 
(113).;chr$':32).; 

115 PRINT "RED (3)" 

1 20 PR I NTLEFT* ( AT* , 1 0 ) SPC ( 3 ) CHR* ( 1 59 ) ; CH 
R*(113);CHR*(32); 

125 F'RINT"CVAN (4)" 

1 30 PR I NTLEFT* ( AT* , 1 2 ) SPC ( 3 ) CHR* (1 56 ) ; CH 
R*ai3>;CHR*(32); 

135 PR I NT "PURPLE <5)" 

1 40 PR I NTLEFT* <AT$; 14) SPC (3 ) CHR* < 38 > ; CHR 
*<113)JCH<3'2); 

145 PR I NT "GREEN < 6 >" 

150 PR I NTLEFT* (AT*, 3 > SPC ( 20 >" r r 

~ i 

155 PR I NTLEFT* ( AT* , 4 > SPC ( 20 ) " I GUESS ! 
ANSWER I" 

1 57 PR I NTLEFT* < AT* , 5 > SFC ( 20 ) " i h 


160 F0RT=1T018 

170 PR I NTLEFT * ( AT * , 5+T ) SPC ( 20)" I 
I I" 

180 NEXTT 

1 90 PR I NTLEFT* ( AT* , 23 > SPC ( 20 > " 1 

j i » 

200 PR I NTLEFT* < AT* , 2 ) SPC < 5 > " W I NS : " } WN 
2 1 0 PR I NTLEFT* ( AT* , 2 ) SPC < 23 ) " GRHES : " GM 
220 PR I NTLEFT* ( AT* , 1 8 > SPC ( 0 ) ; 

240 TR=1 

260 F0RJ=1T04 

278 R < J ) = I NT < RND (1 > *4 ) +3 

280 NEXTJ 

290 P0KES0+4 , 33 : FORT= 1 T048 : NEXT : POKESO+4 

oo 

300 PR I NTLEFT* (AT*, 18>SPC(3)CHR*( 144) ; "G 
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LESS NO. "TR"C K157);" " 

SO 1 PR I NTLEFT # ( AT* , 28 ) SRC < 3 ) " 


302 PR I HTLEFT# CRT# .■ 20 ) SRC ( 3 > ) 

304 fifi$=" " : GETfifl# 

305 I Ffifi$=CHR# < 2@ ) fiHBLEN < fi$ ) < 1 THEH304 

306 IFRfl$0"Q"RNBfifi#0CHR$< 13)RNDRfi$OCH 
R# ( 20 ) AND < flfi$< " 3 " QRfifl$> " 6 " ) THEN304 

307 IFRR#="Q" THENG0T0652 

308 I Ffifi$=CHR# <13) THEN3 1 4 

309 I FfiR#=CHR# < 20 ) THENPR I NTEEL# : R#=LEFT 

L-EhK m > -4 ) -GOTG304 

3 1 0 R#=fi$+fifi# : P0KE646 , VRL < RR# ) - 1 : PR I HIGH 
R# <1 1 3 ) CHR* < 32 ) ; : GOTO304 

314 I FLEN < R* ) 04THENR#= " " : G0T0381 

316 IFfl#="Q" THENG0T0652 

317 PR I NTLEFT# < RT# , 5+TR ) SPG < 22 ) ; 

320 FORN=1T04 

330 IFMIB*<fi*,N, 1»"6" 0RMIH*<R3L H.. 1 K"3 
"THEHGOTO310 

340 L < N > =VRL < M I D* < fi* .■ H , 1 ) ) 

345 PQKES4S,L<N>-1 

350 PR I NTCHR# < 113) ; CHR* < 32 > ; 

360 NEXTN 

378 PR I NTLEFT# < RT* .. 5+TR ) SPG < 3 1 ) 1 
380 F0RH=1T04 
390 S<N)=R(H) 

400 NEXTN 
420 RD = 8 • BL=0 
438 F0RJ-1TQ4 

440 I FL < J ) =S < J ) THEN BL=BL+ 1 : S < J ) =- 1 : L < J 
)=0 

450 NEXTJ 

456 F0RJ=1TG4 

458 I FL < J ) =0THENGOTO490 

460 FQRK=1T04 

470 I FL < J ) =S < K ) THFNRD=RD+ 1 : S < K > =- 1 : L < J ) 
= 0 

480 NEXTK 
490 NEXTJ 

500 I FBL=0THENGOTO540 
510 F0RJ=1T0BL 

520 PR I NTCHR# < 1 44 ) ; CHR# < 1 i 3 ) j CHR# < 29 ) ; 
530 NEXTJ 

540 IFRB=0THENGOTO580 
550 FOR J= 1 TORD 
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560 PR I NTCHR* (158) CHR$ (113): CHR$ ( 29 ) ; 

570 NEXTJ 

580 PRINT: PRINT 

590 IFBL=4THENGOTOS70 

600 TR=TR+1 

610 IFTROMRX THENGQTO290 

650 PR I NTLEFT* < AT* , 22 ) SPC ( 5 ) ; 

651 PR I NT "OUT OF GUESSES!" 

652 PRINT: PR I NT "THE COLOURS WERE: ":PRI 
NT 

654 F0RN=1T04 

656 P0KE646 .■ L ( N ) : PR I NTCHR* (113); CHR* ( 32 ) 

658 NEHTN 

660 PRINT: PRINT 

664 i j 0 T U 70y 

690 WN=WN+1 

692 MRX=MRX-1 

694 IFMRX<5THENMRX=5 

700 GM=GM+1 

705 PR I NTLEFT * ( AT* , 24 )SPC (15) ; CHR* ( 1 44 ) 
710 INPUT"PLRV AGAIN ";Q* 

720 PR I NTCHR* ( 146) 

730 I FLEFT* ( Q* , 1 ) = " N " THENGOTO750 
740 GOTO 100 

750 PR I NTLEFT* ( AT* , 8 ) SPC ( 6 ) " THANKS FOR T 
HE GAME!" 

760 END 

10800 REM SET UP SOUNDS 
10810 80=54272 

1 0820 FORT=0TO23 : POKESO+T , @ : NEXT 
1 8030 P0KES0+ 1 , 20 : REM P I TCH 

10040: P0KES0+5 .■ 9 : KhM Al l ACKr'* l iJt.CAV 
1 0050 P0KES0+6 , 240 : REM SUSTA I N/RELE ASE 
1 8060 P0KES0+24 ..15: REM VOLUME 
10078 P0KES0+4.. 16 : REM WAVEFORM 
10080 RETURN 
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English/French 



U* H AT IS THE FRENCH WORD 
FOR TfSrIN 7 


CORRECT ! 




Imagine you have gone on holiday with your family to France and 
your Mum and Dad can’t remember the French for an hotel. You 
just walk up behind them and say ‘It's an auberge. Dad’. 

They will probably be so surprised that you could knock them 
down with a pain (that’s French for a loaf of bread, but of course 
you will know that.) 


Howto play 

The computer will concentrate on nouns but you can change the 
program later to widen your knowledge. 

Always remember when answering in French to use le or la before 
your word. Your computer will not stop your entry but you should 
get into the habit of using the prefixes. 
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The game ends when you have twenty correct answers. 

Remember to use the RETURN key after your choice of word. 
You may be asked questions alternately from French to English 
then English to French. 


Programming Hints 

Some of the data we have used is very simple so you can change 
lines 600 to 790 to insert your own, or have someone else program, 
harder examples. 


Program 


10 REN ##*##############+### 

20 REM * ENGLISH * 

22 REM $ AND # 

24 REM # FRENCH # 

25 rem 

30 RT*=CHR$<17) : F0RT=1T06 : RT$=RT$+fiT$ •' NE 
XTT : RT $=CHR$ (19) +RT $ 

35 POKE53280 , 6 : POKE53280 ,14= GOSUB 1 8088 
48 SC=8 
53 QN=0 
70 DIME$C20) 

80 EIMF$<28) 

100 FORJ=1TO20 
110 RERBE$(J) 

120 RERBF$( J) 

130 NEXTJ 

135 PRINTCHR$(147) 

140 INPUT" WHAT IS VOUR NAME ";N* 
142 N$=LEFT$(N$,8) 

1 50 F0RDL= 1 TO 1 008 : NEXTDL 
154 PR I NTCHR* (1 47 ) ; CHR$ (1 44 ) 

160 PR I MTLEFT $ < RT$ > 2 ) SPC ( 5 ) ; " SCORE : ";SC 
1 70 PR I NTLEFT$ < RT$ , 2 ) SPC ( 23 ) j " QUEST 1 0N8 = 
" ; QN 

188 R= I NT < RND < 1 ) *20 ) + 1 
190 IFRNB(1)>„5THEH GOTO 338 
280 PR I NTLEFT $ ( RT$ ; 7 ) SPC ( 8 ) ; " WHAT IS THE 
FRENCH WORD"; 

202 PR I NTLEFT$ ( RT$ , 8 > SPC ( 8 ) ; " FOR " J E$ < R > 

’MO II 

} l 
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£85 PR I NTLEFT* ( FiT* ..10; SRC ( 1 3 > ; 

210 INF'UTR* 

220 QN=QN+1 

230 IFLEN(R*X15THEHfi*=R*+” ":GOTO 230 
240 I FLEFT * ( fi* .. LEN ( F* ( R ) ) ) =F* ( R ) THEN GO 
TO 280 

250 FORT=80TO8STEP- 1 : FORTT= 1 T03 ; POKESO+ 1 
, TT#T : NENTTT > T 

260 PR I MTLEFT * < RT* , 1 3 ) SPC < 1 0 ) J " NO ";N*;" 
THE WORD IS" 

262 PR I NTLEFT * < RT* ,.15) SPC ( 1 4 ) ; CHR* ( 28 ) ; F 
*<R) 

270 GOTO 150 

280 FORT= 1 0TO 1 00 : FORTT= 1 T02 : POKESO+ 1 .. T*T 
T : NEXTTT > T : F’OKESO+1 .. 0 
290 F'R I NTLEFT* (RT*, 13)SPC(15)J "CORRECT! " 
300 80=80+ 1 

310 IFSC=20 THEN GOTO410 
320 GOTO 150 

330 PRINTLEFT*(RT*,7)SPC(8); "WHRT IS THE 
ENGLISH WORD" 

332 PR I NTLEFT* ( RT* , 8 ) SPC: ( 8 > ; " FOR " j F$ ( R > 

•MO M 

335 PRINTLEFT*(RT*, 10)SPC(13); 

340 INPUTfi* 

350 QN=QN+1 

360 IFLEN(R*)<10 THEN R*=fi*+" ":GOTO360 

370 ifleft*(r*,len(e*(.r)))=e*(R) then go 

TO 280 

380 FORT =209TO8STEP- 1 : POKESO+ 1 , T ■' NEXTT 
398 PR I NTLEFT* ( RT* , 1 3 ) SPC ( 10) j " NO " N* ; " 
THE WORD IS " 

392 PR I NTLEFT* ( RT* , 15) SPC (15).: CHR* ( 28 ) .: E 
*(R) 

408 GOTO 158 

410 P0KE53281 , 0 

428 POKE53280,0 

430 PRIMTCHR*( 147) ; CHR*( 158) 

440 PR 1 NTLEFT* ( RT* , 8 ) SPC ( 6 ) ; " CONGRRTULRT 
IONS! YOU HAVE" 

458 PR I NTLEFT* (RT*, 1 2 ) SPC ( 6 ) ; " RNSWERED 
20 QUESTIONS" 

460 PR I NTLEFT* ( RT* , 1 6 ) SPC ( 6 ) ; " CORR 

ECTLV. " 

478 : 

488 : 
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490 : 

500 F0RDL=1TQ1000 : NEXTDL 
510 P0KE53281,7 
520 POKE53280, 7 
530 PR I NTCHRS < 1 47 ) 

540 PR I NICHES (144) = END 
600 DATfi"TABLE", "LA TABLE" 

610 DATA"CHfiIR", "LA CHAISE" 

629 BATA "DOOR" , "LA PORTE" 

630 DATA "HOUSE".. "LA MAISOM" 

648 DATA "DOG" .■ "LE CHIEN" 

650 DATA " CAT 'L "LE CHAT" 

669 DATA "GARDEN" , "LE JflRDIN" 

670 DATA "COAT" .. "LE MANTEAU" 

680 DATA "HAT",. "LE CHAPEAU" 

690 DATA" BICYCLE".. "LA BICYCLETTE" 

700 BATA "TRAIN" , "LE TRAIN" 

718 DAT A "ST AT I ON"/ 1 LA GARE" 

720 DATA" BREAD "/’LE PAIN" 

730 DATA" MILK", "LE LAIT" 

740 BATA "CUP", "LA TRSSE" 

750 DATA "APPLE" , "LA POMME" 

760 DAT A "ROAD", "LA RUE" 

770 DATA "MAP", "LA CARTE" 

780 DATA "SEA", "LA MER" 

790 DATA"BOAT", "LE EATERU" 

10080 REM SET UP SOUNDS 
10010 S0=54272 

10020 FORT=0TO28 : POKESO+T , 0 = NEXT 
10840 P0KES0+5, 9 : REM ATTACK/DECRY 
1 0050 P0KES0+6 , 240 : REM SUST A I N/RELE ASE 
1 0068 P0KES0+24 ,15: rem VOLUME 
10070 POKESO+4, 17 : REM WAVEFORM 
18080 RETURN 
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Fizz/Buzz 



THAT SHOULD HAVE BEEN FI 22 

YOUR SCORE IS 2 



You might have played this at school with everyone in your class 
making a fool of themselves but now it is up to you alone to get it 
right or look silly. 

Every time a number can be divided by 3 you must press FIZZ and 
every time it can be divided by 5 you press BUZZ. Remember to 
press RETURN after each entry. 

Example: 1,2, FIZZ, 4, BUZZ, and so on. 


Howto play 

You type in the numbers and the FIZZES and BUZZES. 

If you make a mistake the computer will tell you what you have 
done wrong and will send you back to the beginning. 



Fizz/Buzz 47 


At the end your computer will thank you for the game. 


Programming Hints 


You can easily change the program for numbers other than 3 and 5 
if you find you are getting too good for the computer. Why not try 
5 and 7? 


Program 

1 8 REM 


12 REM * * 
14 REM * FIZZ BUZZ * 
16 REM $ & 
18 REM * $ 


20 REM 

21 GQSUE 1 6000 : GOTO508 

22 PQKE53280 , 4 : P0KE5328 1 .. 3 

25 RT$=CHR$ (17) : F0RT= 1 T06 •' AT$=AT$+flT* ■ NE 
XTT:AT$=CHR$(19)+AT* 

30 HS=0 

40 C=1 : PRINTCHRf ( 147) 

60 PR I NTLEFT* < RTf , 2 ) SPC ( 5 ) i CHR$ < 31); " SCO 
RE : " ; C-l 

70 PR I NTLEFT* ( AT* , 2 ) SPC < 22 ) CHR$ ( 31 ) .: "HI 
GH SCORE :"HS 

90 PR I NTLEFT $ C AT$ , 1 0 ) SPC < 8 ) " 

ll 

92 PR I NTLEFT* ( AT* , 1 0 ) SPC < 8 ) ; CHR* ( 144); " V 
OUR ” ; = I FC> 1 THENPR I NT " NEXT " ; 

95 INPUT" ANSWER ";A$ 

1 00 P0KES0+ 1 , 20+C : POKESO+4 .. 33 : F0RT= 1 TO30 
: NEXTT : F'OKESO+4 , 32 
102 IFA$=" "THEN90 

1 04 I FLEFT$ ( A$ , 1 ) > " Z " THENPR I NTCHR* ( 38 ) ; " 
USE CAPITAL LETTERS.' PLEASE. " ; GOTO90 
110 IFA$="FIZZ" AND C/3=INTCC/3) AND C/5 
O I NT (C/5) THEN 6OTO308 
120 IFA$="BUZZ" AND C/5=IHT(C/5) AND C/3 
O I NT (C/3) THEN OOTO308 
130 IFA$="FIZZ BUZZ" AND C/3=INT(C/3) AN 
D C/5=INT (C/5) THEN GOTO300 
140 IFLEFT$(A$, 1)>"9" OR LEFT* (FI*, DC'S" 
THEN GOTO 170 
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150 ANS=VAL(fi$) 

160 IF RM3=C AND C/3<>INT(C/3) AND C/5<> 
I NT (C/5) THEN GOTO 300 
170 : 

180 PRINTCHRf <5) ; " THAT SHOULD -HAVE 

BEEN 

1 85 FORTT= 1 TO40 : P0KES0+4 , 33 : FQRT=60-TTTQ 
30STEP-1 : POKESO+1 , T : NEKTT, TT : P0KES0+4, 16 
130 IF 0/3OINT (C/3) RND C/50INT(C/5) T 
HEN PRINTCHR$(144);C; 

200 I F C/3= I NT ( C/3 ) THENPR I NT CHR$ ( 30 ) ; " 
FIZZ 

210 IFC/5=INT(C/5) THEN PRINT; CHR$(31 ) ; " 
BUZZ"; 

220 PR I NT : PR I NT : PR I NT : FORT* 1 TO500 : 'NEXTT 
230 PR I NT ; CHR$ (154 ) ; " VOUR SCORE 

t q n j 1 

234 PRINT: PRINT 

240 IF C-1>HS THENHS=C-l: PRINT" 

R NEW HIGH SCORE ! " : PRINT : PRINTCHR$( 144) 
250 INPUT" WOULD VOU LIKE TO F'LRV AGAIN 
(V/N) " ; 

260 PRINTCHR$( 147) 

273 I FLEETS (0$, 1)="N"THEN GOTO780 
280 GOTO40 
300 REN 

310 PR I NTLEFTS ( RTS ,15) SPC ( 1 6 ) AS " 

320 PRINT: PRINT 


330 C=C+1 
3401 GOTU60 

500 REM INSTRUCTIONS 
505 POKE 53280.' 12 : P0KE53; 
510 PRINTCHR$(147) 

520 FORT = 1 TO 1 88 : P0KES4S 


181,6 

J: PRINT; CHRS 


; "FIZZ BUZZ "; =NEXTT 

538 FORTT= 1 T 028 ; P0KES0+4 ,17: F0RT=7@T04@S 
TEP-2 : POKESO+ 1 , T : NEXTT , TT : P0KES0+4 , 1 6 
535 PR I HTCHRS ( 1 47 ) ; CHRS < 1 46 ) ; CHRS (17) ; 
548 PRINT" FIZZ-BUZZ 

558 PRINT" 

555 PR I NTCHRS ( 144); CHRS (17) ; 

560 PRINT" IN THIS GAME VOU HAVE TO COUNT 
FROM 1 UPWARDS, EACH TINE ADDING "; 
570 PRINT"! TO THE LAST NUMBER. THE NOR 
E TINES THAT VOU CRN DO THIS, "; 
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580 PRINT "THE MORE POINTS 't'OU WILL SCORE 


590 PRINT; CHR$< 17);" TO MAKE IT R BIT HR 
RBER, VOU RLSO HAVE TO BO THIS : - " 

600 PRINTCHR$<5);CHR$<17);" IF VOU CRN 
B I VI BE THE NUMBER BV "CHR$< 144) ; "3" ; 

605 PRINTCHR$<144);" THEN 

T't'PE ”;CHR$(158); "FIZZ" 

610 PRINTCHR$<5);CHR$<17); " IF VOU CRN 
B I VIBE THE NUMBER BV "CHR$< 144); "5" ; 

615 F'RINTCHR$<5) ; " THEN T 

VPE "CHR$< 158); "BUZZ" 

620 PR I NTCHR$ < 5 ) ; CHR$ < 17)" IF VOU CRN 

BIVIBE THE NUMBER BV 

622 PR I HTCHR$ <144); "3 "CHR$<5 ) ; " RNB " CHR$ 
<144) "5"; 

625 PRINTCHR$<5) ; " THEN TVF'E "CHR$< 158) 
"FIZZ BUZZ" 

650 F'R I NTCHR$ <17) ; " . " CHRS < 1 8 ) ; " PRESS 
RNV KEV TO START THE GRME "CHR$<146) 

668 WflIT197,64 

670 GETfi$ : IFfi$=" "THEN678 

675 POKESO+ 1 , 25 : P0KES0+4 , 33 : FORT= 1T058 : N 

EXTT : PQKESQ+4, 32 

680 G0T022 

700 F'RINTCHR$< 147) 

705 PRINTLEFT$<AT$, 9)SPC<8)CHR* <2S) ;.CHR$ 
<18);" 

710 PR I NTLEFT $ < RT$ , 1 0 ) SPC < 8 ) CHR$ < 18 ) ; " T 
HANKS FOR THE GAME! " 

715 PR I NTLEFT$ < ATS ,11) SPC < 8 ) CHR* < 1 8 ) ; " 

" = END 

10000 REM SET UP SOUNDS 
10010 80=54272 

1 0020 FORT=0TO28 : POKESO+T , 0 : NEXT 
1 0030 POKESO+ 1 , 20 : REM P I TCH 

10040 P0KES0+5, 9 : REM ATTflCK/DECRV 
1 0050 P0KES0+6 , 240 : REM SUSTA I N/RELERSE 
1 0@60 P0KES0+24 , 1 5 : REM VOLUME 
10370 P0KES0+4, 16 : REM WAVEFORM 
10380 RETURN 
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Highway Code 


0 QUESTIONS: 10 SCORE: 9 

On a road without a footpath, 
you Should W a L K. : 

1 . On either side. 

2 . On the left hand side. 

3. On the riciht-hand side. 


• PRESS 1 . 2 OR 3 . JOHN 



Sorry, we don’t have a green giant to help you across the road or 
help you solve any of the questions in this game. This program is 
designed to make sure that you know your code before you begin 
to take your cycle out on the open road. It will also help you to keep 
your parents out of trouble as you can tell them where they 
shouldn’t park their cars. 

Howto play 

The first thing your jolly green computer will ask you is your name 
which you should enter and press RETURN. 

You will then be given a series of questions with three answers to 
each. You must choose the correct one if you want to get points 
and, in real life, stay alive on the road. 



Highway Code 51 


Example: The best place to cross the road is 

1. a) at a bus stop 

2. b) between cars 

3 . c) on a zebra crossing 

You must press 1 , 2 or 3. The quicker your response the higher the 
score. 

The game will end after twenty questions which are at random so 
you may get the same one twice. 


Programming Hints 

To change the selection of questions you alter the input data lines 
from 600 - 727 if you wish to make things easier or more difficult for 
the player. 


Program 


1 0 REN 

20 REN * HIGHWAY * 

22 REN * CODE * 

24 REN * * 

25 REN sis###*######*##*###*## 

30 RT*=CHR* (17): F0RT= 1 TOS : AT*=RT*+RT* : HE 
XTT : AT*=CHR*<19)+RT* 

35 GOSUB 10090 
40 SC=0 
50 GN=0 
60 RS=0 
70 DIMQ*<13) 

80 BINfi$<13,3> 

90 POKE53280 , 0 : P0KE5328 1,0: PR I NTCHR* (158 
) 

100 INPUT "WHAT IS YOUR NAME ";N* 

110 F0RJ=1T013 
120 REflDQ$(J> 

130 F0RK=1T03 
140 REflIifi$(J,K) 
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150 NEXTK 
160 NEXTJ 
170 PRINTCHR*< 147) 

1 80 PR I NTLEFT* < RT* , 1 ) SPC ( 5 ) CHR* < 1 59 ) j " QIJ 
ESTIONS: "JQN 

190 PR I NTLEFT* (flT$, 1 )SPC<27) ; "SCORE : " ; S 
C 

200 R=INT<RND<1>#13)+1 
210 I FR=RSTHENGOTO280 
220 RS=R 

230 PR I NTLEFT $ < RT* , 6 > SPC ( 2 > ; CHR* ( 5 ) ; Q$ ( R 

'l 

240 RR=INT<RND<1)#3)+1 

250 RB= I NT ( RND < 1 > $3 ) + 1 

260 IFRB=RRTHENGOTO250 

270 RC*INT<RND<1>#3)+1 

280 IFRC=RB OR RC=RR THEN GOTO270 

290 PR I NTLEFT * <RT*, 9 ) SPC < 3 ) ; CHR* (1 58 ) ; " 1 

. ”.;fi*<R,RR) 

380 PR I NTLEFT* CRT*.. 12)SPC(3) j CHR*< 150) ; " 

2. ";fl*<R,RB> 

3 1 0 PR I NTLEFT * < FITS , 1 5 ) SPC ( 3 ) J CHR* <1 54 > " 

3. ";R*<R..RC> 

320 PR I NTLEFT* CRT*; 19) SPC ( 7 > ; " PRESS 1 , 2 
OR 3. ";N* 

338 QN=QN+1 : POKE 193,0 
340 FORT=1TO500 
350 GETR* 

360 I FT/50-- 1 NT < T/50 ) THENPOKESO+ 1 .. 28 : FORD 
L=1TO20 : NEXTDL : POKESQ+1 , 0 
378 IFR*=" 1 "THEN T*=R*CR, Rfl) = GOTO440 
380 IFR*="2"THEN T*=fl*<R>RB) : GOTO440 
390 IFR*-"3"THEN T*=fl*<R, RC) : GOTO440 
480 NEXTT 

4 1 0 POKESO+ L 30 : FORDL= 1 TO308 = NEXTDL : POKE 
SO+1 > 8 

428 PR I NTLEFT* < RT3C21 ) SPC < 10); CHR* < 18);" 
OUT OF TIME! "; CHR* <146) 

430 G0T0528 

440 IFR*<R, 1 )=T*THEN GOTO 480 
450 F0RSS=1T015 

455 PR I NTLEFT* < RT* , 2 1 ) SPC < 8 ) CHR* < 5 ) ; " THR 
T IS WRONG! ";N* 

457 POKESO+ 1 > 20-SS : FORDL= 1 T058 : NEXTDL 
460 PR I NTLEFT* CRT*, 21 > SPC < 8 ) CHR* < 1 44 ) ;"T 
RRT IS WRONG! ";N* 



Highway Code 53 


462 FORDL= 1 1028 : NEXTDL 
465 NEXTSS : P0KES0+1 , 8 
478 G0T0528 
488 FQRSS=1T015 

485 PR I HTLEFT $ < AT$ , 2 1 ) SPC ( 1 0 ) CHR$ ( 5 ) j " CO 
RRECT ! " 

486 POKESO+ 1 , 20+88 : FORDL= 1 T058 : NEXTDL 

487 PR I NTLEFT$ < RT$ ,21) SPC (10) CHR$ ( 1 44 ) j " 
CORRECT ! " 

488 FORDL= 1 TO20 : NEXTDL 
498 NEXTSS : POKESO+1 , 0 
492 SI = 10-2# I NT <TX 108) 

500 SC=SC+SI 

520 FQRD= 1 TO 1 080 : HEXTD 
522 IFQN=28THENGOTO540 
530 GOTO 178 
548 PRINTCHR$<147) 

550 PR I NTLEFT# ( AT$ ,10) SPC ( 4 ) ; CHR$ ( 1 44 ) ; " 

VOUR FINFlL SCORE IS "JSC 

560 P0KE53288 , 7 : P0KE5328 1 , 7 : PR I NTCHR$ ( 1 4 


580 POKE 198, 0 : END 

603 DATA "WHAT SHOULD VOU WEAR AT NIGHT?" 
685 DATA"SONETHING LIGHT OR REFLECTIVE." 
/"DARK CLOTHES." 

606 DATA "AS MANY CLOTHES AS POSSIBLE" 

610 DATA "WHICH IS THE SAFEST PLACE TO CR 
OSS THE ROAD?" 

615 DATA "A ZEBRA CROSSING. ", "A DUAL CARR 
I AGEWAY. " , "BETWEEN PARKED CARS. " 

620 DATA "WHERE SHOULD VOU STAND BEFORE C 
ROSSING THE ROAD?" 

625 DATA" ON THE PAVEMENT A LITTLE WAV FR- 
OM THE KERB. ", "BEHIND A PARKED CAR." 
627 DATA" IN THE ROAD." 

630 DATA" WHERE MIGHT VOU SEE ZIG-ZAG LIN 


ES?" 

635 DATA" NEAR A ZEBRA CROSSING. ", "NEAR T 
RAFF I C LIGHTS.”, "ON A BUSY ROAD." 

640 DATA "ON A ROAD WITHOUT A FOOTPATH, V 
OU SHOULD WALK : " 

645 DATA "ON THE RIGHT-HAND SIDE.", "ON TH 
E> LEFT-HAND SIDE.", "ON EITHER SIDE." 

650 DATA "WHAT IS THE BEST WAV TO CROSS A 
CLEAR ROAD?" 

655 DATA" WALK STRAIGHT ACROSS. ", "RUN. " 
WALK DIAGONALLV." 



54 Highway Code 


660 BATA "WHEN WILL fi CRR TAKE LONGEST TO 
STOP?" 

665 BATA "ON R WET RORB.","ON R DRV RORD. 
" "OH R BUSV RORD." 

670 DRTR"RT R PELICAN CROSSING, VOU SEE fi 
RED MAN, WHfiT DO VOU DO?" 

675 DATA" WRIT, " , "RUN QUICKLY ACROSS. ","W 
RLK ACROSS." 

680 DATA "WHERE SHOULD VOU GET ON A BUS?" 
685 DATA "AT A BUS STOP.", "AT TRAFFIC LIG 
HTS. " , "ANYWHERE IT HAS STOPPED." 

690 DATA "WHAT MUST VOU HAVE ON A BICYCLE 
AT NIGHT?" 

695 DATA "FRONT AND REAR LAMPS AND R 

REFLECTOR. "/'FRONT AND REAR LAMPS." 
697 DATA "A FRONT LAMP AND A REFLECTOR" 
700 DATA "WHEN VOU ARE WITH fi BOG, SHOULD 
IT BE : " 

705 DATA "OH A LEAD.", "IN THE ROAD.", "ON 
ALEAD. " 

710 DATA "RED AND AMBER LIGHTS AT TRAFFIC 
LIGHTS MEANS:" 

715 DATA "TRAFFIC ABOUT TO START. ", "TRAFF 
IC STOPPING." 

717 DATA "TRAFFIC MOVING BOTH WAVS." ' 

720 DATA "ON A CYCLE AT TRAFFIC LIGHTS SH 
OWING RED WHAT SHOULD VOU DO ?" 

725 DATA "WAIT UNTIL THEY ARE GREEN. ","CV 
CLE THROUGH." 

727 DATA "GET OFF AND WALK THROUGH. " 

10000 REM SET UP SOUNDS 
10018 50=54272 

1 0020 FORT=0TO28 : PQKESO+T , 0 : NEXT 
1 0038 POKESO+ 1,0= REM P I TCH 
10840 POKESO+5,9 : REM ATTACK/DECAV 
1 0050 P0KES0+6 , 248 : REM SUSTfi I N/RELEASE 
10860 P0KES0+24, 15 : REM VOLUME 
10070 P0KES0+4, 17 : REM WAVEFORM 
10080 RETURN 
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Guess the Number 



I AM GOING TO THINK OF A NUMBER BETWEEN 
1 AND 100. VOU TRV AND GUESS WHAT IT IS. 


O.K. WHAT NUMBER GUESS ANSWER 

AM 1° THINKING OF? 13 LOW 

75 HIGH 



You have the chance here to see if you can guess the number your 
computer has chosen for you. 


The game will begin with a number between 1 and 100 but as you 
become an expert at guessing the number your computer will start 
to widen the range to between 1 and 120, and then 140 and so on. 


Programming Hints 


You can make the game easier or more difficult to start with if you 
decrease or increase the value of ‘max’ in line 50. 


56 Guess The Number 


Program 


IP REM if if f if £ f f $ if if f if f if $ if if $ $ if if f . * ;f if 
12 REM $ :f 

14 REM if GUESS THE NUMBER if: 

18 REM if if 

20 REM if if if if if if if if if if if if if if if if if if if if if if if if if 
25 POKE53280 > 1 2 : P0KE5328 1 . 1 1 : GOSUB 1 0800 
38 RT$=CHR$ (17) : F0RT= 1 TOS : fiT$=FiT$-i-RT$ : NE 
XTT ; AT $=CHR$ ( 1 9 ) +RT$ 

49 TR=0 : OPENS , 8 

50 MfiX=100 
60 C=0 

70 PRINTCHR$<147>:TR=0 
80 PRINTCHE$<154)" G U ESS A N 

U M B E R 

82 PRINT" 

_ II 

84 F0RBL= 1 TO 1 000 = NEXTDL : GOSUB i 8288 
90 PR I NTLEFT* ( AT* , 4 ) SPC ( 0 > CHR* ( 30 ) ; " I RM 
GOING TO THINK OF fi NUMBER "j 
92 PR I NT " BETWEEN 1 AND " MRXCHR* (157);"."; 

94 PRINT" YOU TRY AND GUESS WHRT IT IS." 

95 FORBL= 1 TO3800 : NEXTDL 

1 00 PR I NTLEFT* ( RT* , 2 1 ) SPC < 1 4 > " TH I NK I NG . . 

II 

110 R= I NT < END ( 1 } f MRX ) + 1 
i 20 FORBL= 1 TO2000 : NEXTDL 

1 24 PR I NTLEFT* ( AT* , 2 1 ) SPC ( 14)" 

II 

1 25 PR I NTLEFT* ( AT* , 7 ) SPC ( 25 ) " GUESS ANSW 
ER" 

127 PR1NTCHR*(158) 

1 30 F'R I NTLEFT $ ( RT* , 7 ) SPC < 0 ) " 0 . K . WHRT N 
UMBER" = PRINT" RM I THINKING OF?" 

1 35 PR I NTLEFT* ( RT* .. 1 0 ) SPC ( 8 ) " 

ll 

148 PR I NTLEFT* (RT*.. 1@)SPC(4)"?. 

1 42 PR I NTLEFT* < AT* , 1 0 ) SPC ( 5 ) ; 

145 WR I T 1 97 , 64 : POKE 1 9S .> 0 
1 58 I NPUT#3 , ANS* : RNS= VRL < LEFT* ( ANS* , 8 ) ) - 
ANS*=STR* ( ANS > = PRINT = PR I NT : PR I NT 
1 55 I FVflL ( ANS* ) =8THEN 1 30 

169 TR=TR+1 

1 70 I FRNS>RTHENPR I NTCHR* (159 ) " YOUR ANSW 
ER IS T00";CHR*(5);" HIGH."; CHR* (159) 



Guess The Number 57 


175 I F flNS>RTMENF'R I NT " TRV fi LOWER NUMBE 
R. " : GOSUB 10200 

180 IFflNS<RTHENPRINTCHR$<159> ) " VGUR RNS 
WER IS TOO ";CHR$a50)"LOW. n ;CHR$<159> 

181 I FANSCRTHENPR I NT " TRV fi HIGHER NUMB 
ER. " : GOSUB 102 10 

182 1 FfiNS>RTHENR$=C‘ ‘ 

183 IFfiNS<RTHENR$=C 

184 IFRNS=RTHENR*=C 

185 PRINTLEFT$(RT$, 

;RHS :: "R*J 

186 I FTR=-> 1 8THEH460 

189 IFANSOR THEM GOTO 130 
208 GOSUB 10220 

210 PR I MTLEFTf < AT $ .13)" THRT IS THE H 

UMBER ! ! 

212 PRIHTLEFTf (fiTf.' 14)" 

i: 

214 PRINT: PRINT 

2 1 6 F0RBL= 1 TO 1 @80 = NEXTBL 

218 TP=MAX 

220 C=C+1 

238 TF-TP/2 

240 IF TPM THENGOTO 22@ 

250 PRINT" VOU GUESSED IN "TR" TRIES. " 

252 PR I NT: PR I NT 

260 I FTRCC+2THENG0T03 1 8 

270 MRX=MflX-20 

280 IF MfiX<20 THENMfiX=20 : GOTO330 
290 PRINT "THAT WAS A BIT SLOW! I WILL RE 
DUCE THE MAN I MUM NUMBER TO " ) MAN 

380 GOTO330 
310 MRXsMflX+20 

328 PR I NT "THAT IS VERY GOOD. I WILL I NCR 
EASE THE MAXIMUM NUMBER TO ";MAX 
330 0=0 
340 TR=0 

350 F0RDL= 1 TO3000 : NEXTDL 

352 PR I NTLEFT* < AT* , 23 ) SPC < 5 > CHR$ ( 1 8 > ; " H 

IT ANY KEY TO PLAY AGAIN "j 

355 GETR$ : IFA$=" " THEN355 

360 PRINTCHR$(147) 

370 GOTO70 

400 REM RUN OUT OF GUESSES 
4 1 0 PR I NTLEFT$ < FIT* M2) SPC < 2 ) CHR$ ( 159))" Y 
OU'VE RUN OUT OF GUESSES" 




58 Guess The Number 


415 PR I NTLEFT $ ( RT $ , 1 3 ) SPC < 0 V ' 


420 PR I NTLEFT $ (. RT$ .. 1 4 > SPC ( 2 ) CHR$ < 1 58 ) ; "T 
HE HUMBER WHS " ; CHR$<5> j R; CHR$<157) ; " " 
430 GOT 0350 


10690 

REM SET UP S 

OiJNBS 





1 00 1 0 

50=54272 






1 0020 

F0RT=QT028 : P 

0KES0+ 

T , 3 : HE 

XT 



1 0030 

POKESO+i .« 20 : 

REM 

PITCH 

VI 



10040 

P0KES0+8.. 10 : 

REM 

P I l CH 

V'2 



1 0@50 

r : U K t S Li + i 5 12 

'• REM 

PITCH 

V3 



10060 
i.,» •] 

pnKESn+^>P : 

P0KES0+6.: 248 

•‘REM 

fill 

SR 

10070 

P0KES0+12, 12 

: POKES 

0+13, 1 

06 : R 

EM A 

US 

R V2 







10989 

i iO 

P0KES0+19, 34 

• PUKtSO+20 .« 60 • Rc 

M REi 

SR 

V ‘~J 

18090 

PGKESQ+24, 15 

; Kbh 

VOLUM 

E 



10109 

POKESO+4, 16 

•• REM 

WfiVEF 

URM 



10110 

P0KES0+ 1 1 , 32 

: REM 

WFivEF 

ORM 

V2 


10129 

F'OKESO+18, IS 

: REM 

WflVEF 

ORM 

l| } •-! 


19125 

RETURN 






16130 

: POKESO+4, 33 

: POKES 

0+11 , 1 

7 : FORSS" 

57 

O100STEP6 ■’ POKESO+i 

b'o • P U 

KESO+8 

200 

— o c 


10140 

NEXTSS 






10158 

POKESO+4, 17: 

F0RSS= 

280TO 1 

0C;Tr 

p-3 : 

PO 

KESO+1 

. , SS : P0KES0+8 

250-S 

3 : NEXT 




18168 

: POKESO+4, 33 

: FORSS 

=301010037 

EP10 

:p 

OKESO+i , S3 : NEXTSS 






10170 

POKESO+4, 33: 

F0RSS= 

5070 10 

STEP 

-8 •• P 

OK 

ESO+1, 

SS = NEXTSS 






10180 

POKESO+4, 16: 

POKESO 

+11,0- 

RETURN 


10200 

POKESO+4, 17: 

FORSS- 

1 7 080 : 

POKE: 

SO+1 

•' b 


S •• NEXTSS : POKESO+4, IS- RETURN 
1 621 9 POKESO+4 ,17- F0RSS=88T0 1 STEP- 1 : POKE 
SO+ 1 , SS : NEXTSS : POKESO+4, 16: RETURN 
1 8220 FORV~ 1 T09 : POKESO+4 ,17: F0RS8= 1 0TO40 
: POKESO+i , SS : NEXTSS, V •• POKESO+4, 16 : RETURN 
1 8238 POKESO+4 , 1 7 : FORSS=200TO0STEP- 1 : POK 
ESO+ 1 , SS : NEXTSS ’• POKESO+4 ,16 = RETURN 
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Word Mix 



If you ever get words mixed together when you are thinking about 
something else and have to go back and rewrite your essay then this 
game will be easy for you . 

We have mixed one word through another but we haven't jumbled 
them up - if you see what we mean . 

Here is an example: ABFOOUUTR 

spells ABOUT FOUR 

As you can see both words are mixed together but not jumbled. 
You have to have a sharp eye to pick them out and separate them. 



60 Word Mix 


How to play 

The computer will put up on your screen two words mixed as in the 
example above. 

Type in the first word and press RETURN then the second word 
and RETURN. 

You can use lower case - capitals aren’t necessary. 

You will receive one point for each correct word and the score will 
appear on the top of your screen . 

If you cannot solve the riddle type ESCAPE to give up. 


Programming Hints 

If you wish to make the selection of words even more difficult then 
change the data in lines 450 onward. If you increase the number of 
words make sure that you change the 50 in lines 60, 80, 140, 150 to 
match the total number of words, e.g. if you had 80 words, line 60 
would be: 

60 DIM Word$ (80) 


Program 


i 0 K EM $ $ $ $ $ $ % $ $ $ * y Mi; 'ii. ii}> $ ^ 

12 REM % 


14 REM 


1 , ! p fi 'y! T V 

i 1 1 r"i 


16 REM % % 

S {••*) jV ;jjij ^ ;«£ jlj!* -ur ;&• •(/*; -i’r ^ yii •!;} 

22 P0KE53288 ■ 14 • P0KE53281 .* 1 
25 RT$=CHR$ (17): FORT- 1 70S : F 
KIT : flT$=CHR$< 19KFi7$ 

48 SC=0 

59 TP-9 

60 DIMWf (50) 

88 FGRJ=1 TO 58 

se R£fin mm 

100 HEF.TJ 

119 PR I MTCHR$ ( 1 47 > 

128 PR I NTLEFT* < R7$ , 3 ) SPC ( 5 ) ; CHR 


Ml 




MU 



Word Mix 61 


W 0 R DM : X" * 

1 88 PR I NTLEFT $ ( riT$ .> 3 ) SPC ( 25 ) > CHR$ ( 1 44 ) .• ” 

SCORE: ,! ;CHR$<5);SC 

140 R 1=1 NT ( Ri'-lli ( 1 ) $58 > + 1 

158 R2~INT<RHIK 1>#38> + 1 

1 68 I FR 1 --R2YHEHG0T0 1 58 

1 6 2 I i~ Lt h ( W '$ K 1 ) ) 1 8 i H E H i4 $ ( R i ) ~ ^ % ( K 1 j + 
" GOTO 162 

1 64 I F LEH ( W$ ( R2 ) ) 6 1 8 THENW$ < R2 > =w$ < R2 ) + 
” “ : 00T0164 

1 65 PUKE50+4 1 7 : F0KESU+ 1 1 38 • FORT — i T048 ■ H 
EXTT : P0i<ES0-:-4, 16 


176 

Mi=i 




188 

M 2 =l 




190 

PRIWTLEFT* 

<H7£,S} 

SPC ( 

i 0 ; , 0 / , 

280 

IFRH3X 1 >>. 

5THENGC 

i ! J«ih 

V 

208 

IFM1M07HE 

NbU 1 Uclb 

0 


218 

IFf 1 ID$<M$< 

Rl) jMIj 

i>=" 

!, THEHGOTO230 

220 

FRINTMIIi$( 

W$(R1); 

Ml, 1 

) ; 

238 

M 1 =M 1+1 




246 

G0T02S8 




d to 

IFiT2>10THE 

NG07028 

’/:■ 


258 

IFMID$<W$< 

p \ i >-/j p ( 

1 ) = !: 

u THENGuT02)''b 

260 

PRINTf1IB$< 

H$<R 2 >) 

M2, 1 

/ , 

273 

M 2 =M 2+1 




23 •-* 

IF 1 IKI 8 OR 

N 2 -ae 

i riEr-i 

iJ:j i ;jc.‘ r J 0 

230 

r T! 

PRINTLEFT* 

\ fi i S .> 1 8 

f'uruh / •; .1 

>SPC 

(8) :! KHR7 FlRE 


388 IHFUi “ F i Ko i RUKjJ 

382 PQKESO+4 .> 1 7 : P0KES0+ 1 , 26 : FORT" 1 1048 : N 


•Z- 

0 ( 

pfi 

;<ESC 

3+4, 1 

T * p 

;_i jp p i 

0+1 , 

► 28 : 

FORT 

*1TO40 

: N 

E 

K77 • P 

OKES 

;! i J + 4 ; 

lo 







~r 

10 

TR 

=7 Rh 

-1 








• j 

*. A 

L *T 

IF 

H'C" 

-"QUI 

*t* r. 

i ilLh 

P'J 1 

1 0 4 

28 



320 

IF 

LEh 

KFi$> 

<10 

THEHfi$ s 

=fi$+ 

ft H • 

ijSj i iJOd 

8 

3 

33 

T P 

X 1 

LEr- 

'1 ( B -r’ ) 

<10 

7HEI 

!'■( P :r 

=B$+ 

1; M • 

G07 032i 

F < 

•C; 

40 

T P 

m< 

:>w$< 

R 1 > 

PiHB 


(CMS 

( R2 

7HEN 

EJSJ 

T 

fjpTfT; 










3 


PR 

1 H7C 


D / J 







5 

50 

p 

T L.ITI 

x n : l 

„EFT$ 

<R7 

C .1 j. p 

*■) opr 

::(6) 

11 YOU 

p p T p/ O 

T 

w 

GRI 

J 1 

0 ! > • 

CHR$ 

(15 

3); " 

CORF 

p. L- i 




o ; 

55 

PO 

KE8C 

3+4, 1 

*7 • p 

OKESi 

j+1, 

' 36 : 

FGR7 

•• T •— cr r- 

•••“ J. ; : J rj 

; P 



62 Word Mix 



432 r "K iNiLEF , 28 ) Sh'L. 23 ) i LHb;£ ( I 08 ) > 


433 PR I H I CHK$ 17).’ UHRS ( 1 7 ) ] 8HK-? 1 33 ) > " 
"CHR$<!8>” PRESS RHV KEV 70 COHTIHUE 

434 FORBL® 1 702938 : GET88$ : I FSSfO " ,! THENBL 
-2908 

435 NEXTBL 
448 GO 701 18 

458 BfiTfi 11 BfiHK " / HOUR , " MOST " 

468 BfiTB ■' VRRIi ” , “ FOUR ", "MOST 11 
478 BBTfi ” MORN I HO '’,"71 ME " , FOUND " 

488 BBTfi " HOOF " , " SfiB 11 , ” BLACK :: 

498 BfiTfi "ANIMAL", "ftBOUT", "SOLDIER” 

568 BfiTB” COLONEL V RUMOUR ” , ” ENG I HE ” 

518 BBTfi "LEG” , "CRSTLE" , "DIGEST" 

528 BfiTfi "GUI TAR", "BOG".. "BUTTER" 

538 BBTfi ” BR I CK " , ” SPfiCE " , " BUCK " 

548 BBTfi " BEROPLBNE " , ” BfiTTERV " " SPARROW ” 
558 BfiTfi " PR I NT " , " STAR " , " SYSTEM ” 

568 BfiTfi " CfiNBRY " , ” BASE ” , " UK ITE” 

578 BfiTfi " TABLE ,! , " CHfi I R " , " MfiG I C " 

589 BfiTfi ” LfiNB ", "JUSTIFY", " HfiBIT" 

538 BfiTfi " MECHfiN 1 C " , ” CVL I NBER VOIL ” 

688 BfiTfi"SPfiBE" , "MARKET", "TRACTOR” 

6 1 8 BfiTfi " ROBUST " , " VAR I ETV " 



Word Mix 63 
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Constellations 



This is a great game for learning how to make money off your pals 
by asking them at night if they know which star group is which in 
the sky. 


It is also very handy to know your stars as you never know when 
you will need to navigate your way out of a crocodile-infested 
swamp - or drive to London in the dark. The star at the end of the 
tail of Ursa Minor, or the little bear, is called the pole star and will 
always be to your North . 


How to play 

The computer will show you the shape of some of the main star 
groups to be found in the skies around us and will give you the 
Latin and the common names for each group. 



Constellations 65 


The screen will then show the stars without any names and will ask 
you to type in your answer in CAPS and RETURN. 

If your guess is wrong the screen will light up and show you both the 
names. To stop the game press ESCAPE. 

Happy stargazing. 


Program 


10 REM 

20 REM # * 

22 REM * CONSTELLATIONS # 

24 REM * # 

25 REM 

30 AT*=CHR* (17): FQRT= 1 T06 : AT* =AT*+AT* : HE 
XTT : AT *=CHR* ( 1 SO +AT* 

35 F0KE53289 0 : P0KE5328 1 , 0 : PR I NTCHR* < 1 47 
) ; CHR*< 158) 

40 T=0 

50 FOR CN=1TQ7 
60 READ X,V 
70 ON (ON.. T , @)=X 
80 ChKCN, T, 1 >=V 
90 I FK=0THENGOT 0 1 1 0 
100 T=T+1 : GOTO60 
110 READCN*(CN,0) 

120 REABCN* CN , 1 ) 

130 T=0: NEKTON 

135 F0RN=1TQ7 

137 FL=0:R=N= GOTO 150 

140 R=INT(RND<1)#7)+1 

1 50 I FCN < R -1,0 ) =0THEN 1 90 

160 PR I NTLEFT* < RT$ , CN C R , T , 1 ) ) SF'C ( CN < R , T , 

0)+3)". " 

170 T=T+1 
180 GOTO 150 

199 IFFL=1THENGOTO250 

1 95 PR I NTLEFT* < AT* , 4 ) SPC U 2 ) ; " 

ll 

200 PR I NTLEFT* < AT* , 4 > SPC ( 1 2 > ; CN* < R , 0 ) 

205 PR I NTLEFT * ( AT* , 20 ) SPC < 1 2 ) i 11 

it 

2 1 0 PR I NTLEFT* < AT* , 28 > SPC < 1 2 ) j CN* <R, 1 ) 



66 Constellations 


228 FORDL= 1 TO 1 000 = NEXTDL 

238 I FFL=8THENPR I NTCHR* ( 1 47 ) : T=0 : NEXTN : F 

L=1 : GOTO310 

250 PRINTLEFT*<AT$, 20) SPC<8>; "WHICH IS T 

H i C; *p 11 

268 PR I NTLEFT* < AT* , 22 ) SPC (8) ; : I NPUTAN* 
264 PR I HTLEFT $ ( ATS , 20 ) SPC < 8 ) J " 

II 

266 PP. I NTLEFT* < R T$ , 22 ) SPC < 8 ) j ” 

II 

278 I FAN*=CN$ <R,0) ORflN$=CN$ < R .■ 1 ) THENPR I N 
TLEFT$ < AT* , 22 ) SPC (1 8 ) 11 THAT I S CORRECT ! " 
288 PR I HTLEFT $ < AT* , 4 ) SPC < 1 2 > ; CN* < R , 0 ) 

298 PR I NTLEFT* < AT* , 28 ) SPC (1 2 ) ; CN* < R , 1 ) 

308 FOPIiL= 1TO 1000 : NEXTDL 

310 T=0 : PR I NTCHR* <147): GOTO 1 48 

1800 DATA 12, 11. 15, 10.. 17, 18,20, 10,22, 11, 

25.9.24.7.0. 0 

1010 DATA "URSA MAJOR" , "GREAT BEAR" 

1820 DRTA12, 11, 14, 11, 12,9, 14,9, 15,7, 17,6 
, 20 ,5,8,0 

1830 DATA "URSA MINOR" , "LITTLE BEAR" 

1048 DATA12, 11, 13, 13, 14, 13, 15, 16, 18, 15,0 
,0 

1058 DAT A "CASS I OPE I A"," " 

I860 DATA12, 11, 13, 10, 11, 12,11, 15, 14,7, 16 
, 15, 10,7,0,8 

1078 DAT A "OR I ON", "THE HUNTER" 

1088 DATA 12,11,13,12,14,12,15,11,16,18, 

15. 10.0. 0 

1890 DATA "CORONA BOREALIS" , "NORTHERN CRO 
WN" 

1180 DATA 12,11,15,12,17,13,17,14,0,0 
1110 DATA"SAGITTA" , "THE ARROW" 

1128 DATA12, 11, 16, 10, 17,5, 18,7,24, 13,21, 

18,21,9,22,5,8,0 

1130 DATA "CVGNUS", "THE SWAN" 
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History Quiz 



£85ggN°i?*SV5 °* CRT FIRe 0F 



Here is a chance to catch up on your history lessons without 
looking stupid because you have got the answer wrong. If you are 
working with your own computer no one will know that you need 
more practice with your history. 

This is very like the science quiz which offers multiple answers for 
which you must make the correct choice. You can also alter the 
questions in this program as explained at the end. 


Howto play 

The computer will ask you for your name and you type it in and 
press RETURN. 

A choice of statements will appear on the screen and you will be 
asked to choose the correct answer. 



68 History Quiz 
Example: 

The Napoleonic wars were fought between? 

1. The French and English 

2. The English and Americans 

3 . The French and Italians 
To answer press 1 , 2 or 3 

If you are correct the computer will tell you and if you are wrong 
the computer will print ‘That is wrong’ . 


Programming Hints 


The lines to change for your own questions are from 600 - 800. 
Remember, if you change the total number of questions you will 
have to change lines 70, 80, 110,200. 


Program 


1@ REM if: if: if if: $ if $ if: if f: if: f f if: f if: if $ f if f 
20 REM if HISTORY QUIZ * 

22 REM if if 

24 REM * f 

25 REM ffffffifffffifififfiffffiff 

30 RT$=CHR$ (17): F0RT= 1 T06 : flT$=flT$+RT$ : ME 
XTT : AT $=CHR$ (19) +AT $ 

40 SC=0 

59 QN=8 

60 R8=0 

70 IHMQ$(2Q) 

80 DIMFi$(2@.' 3) 

90 P0KE53288 , 0 : P0KE532S 1 , 0 : PR I HTCHR$ ( 1 58 
) CHR$ ( 1 47 ) 

9 5 G 0 S U B 1 0 0 8 8 

100 INPUT" WHAT IS YOUR NAME " N$ 

1 05 P0KES0+4 ; 33 : FORT* i T038 : NENTT : P0KESQ+ 
4,32 

110 FORJ=1TO20 
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120 REfiiiQ* a) 

130 F0RK=1T03 
140 REfiBfi$<J , K) 

150 NEKTK 
160 NEXT,! 

170 PRINTCHR*<147) 

1 88 PR I NTLEFT* < flT$ , 1 ) SPC < 3 > CHR$ < 1 58 ) ; " QU 
ESI IONS: ";qh 

1 90 PR I NTLEFT* < RT$ , 1 ) SPC < 1 8 > CHR* < 5 ) ; " SCO 
RE: "SC 

200 R= I NT < RND < 1 ) *20 ) + 1 
210 I FR=RSTHENGOTO200 
220 RS=R 

230 PR I NTLEFT* < flT$ , 7 ) SPC < 0 ) Q$ C R ) 

240 Rfl=INT<RND<l)#3)+l 

250 RB= I NT < RND (1) *3 HI 

260 I FRB=RRTHENG'OTO250 

270 RC= I NT < RND ( 1 ) *3 ) + 1 

288 IFRC=Rfl OR RC=RB THENGOTO270 

290 PR I NTLEFTf < RTS , 1 8 ) SPC < 0 ) CHRS <150) J " 1 

. ";CHR$<129);fl$<R,RR) 

300 PR I NTLEFT* < RTS , 1 2 > SPC < 0 ) CHRS < 1 58 ) ; " 2 
. " ; CHRS ( 1 53 ) ; RS < R , RB ) 

3 19 PR I NTLEFT* < RTS ,14) SPC < 0 ) CHRS < 1 58 ) .: " 3 
. " ; CHRS < 1 52 ) ; fi$ < R , RC ) 

328 PR I NTLEFT* < RTS , 1 3 ) SPC < 7 ) CHRS < 5 ) ; CHRS 
<18);" PRESS 1,2 OR 3,"; NS;" " 

338 QN=QN+1 :FL=0 : R$="" 

340 FORT=1TO380 
350 GETRS 

360 I FT/50= I NT < T/50 ) THENPCKESO+ 1 , 25 : POKE 

80+4, 33 : FORTT=1TG30 : NEXTTT = P0KES0+4, 32 

370 I FR*= " 1 " TRENT S=fiS < R , Rfi ) : FL= 1 

380 I FRS= " 2 " THENT$=RS < R , RB ) : FL= 1 

390 I FRS= " 3 " THENT*= AS < R , RC ) : FL= 1 

395 I FFL= 1 THENTT =T : T= 1 008 = NEXTT : OOTO440 

480 NEXTT 

410 : 

428 PR I NTLEFT$ < RTS , 28 ) SPC < 7 ) CHRS < 5 ) ; CHRS 
< 18) .: " OUT OF TINE! " 

430 GOTO520 

440 I FRS < R , 1 ) =T STHENGOT 0480 

458 POKESO+4 ,17: F0RT=48T0 1 STEP-4 

455 FORTT=TTOT+30 : POKESO+ 1 , TT : NEXTTT : HEX 

TT : POKESO+4 , 16 

460 PR I NTLEFT* < ATS , 28 ) SPC < 7 ) CHRS < 1 29 ) ; CIH 
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R$<18);" THAT IS WRONG, ";N$;" " 

476 G0T0528 

480 POKESO+4 , 33 : FORT= 1 TO 1 09STEP 1 0 

484 FORTT=TTOT+30 : POKESO+ 1 , IT : NEKTTT : MEN 

TT: POKESO+4, 32 

430 PR I NTIEFTS ( AT$ , 23 ) SPG (11) CHR£ ( 1 58 ) C 
HR$( 18) i " CORRECT!" 

492 SI=10~INT (TT/1@0) 

500 SC=SC+SI 
510 : 

520 FORD=1TO100@ : NEXTB 
522 I FQN=20THENGOTO540 
530 GOTO 178 
540 PRINTCHR$< 147) 

550 P0KE53288 , 7 : P0KE5328 1,7= P0KE646 , @ 

560 PR I NTLEFT$ ( RT$ ,10) SPC ( 4 ) ” VOUR F I NRL 
SCORE IS ";SC 
576 : 

580 END 
530 : 

600 BATA "WHEN BIB JULIUS CAESAR FIRST CO 
ME TO BRITAIN", "55 BC", "1914", "1066" 
610 BATA "WHO RULED BEFORE QUEEN ELI2ABET 
H II", "GEORGE VI", "QUEEN VICTORIA" 

615 BATA "EDWARD VII" 

620 DATA "WHO INTRODUCED THE PENNV POST? 
" , " ROWLAND HILL", " JUL I US CAESAR " 

625 DATA "WALTER RALEIGH" 

630 DATA "WHERE DID THE GREAT FIRE OF LON 
DON START?" 

635 DATA "PUDDING LANE" , "OXFORD CIRCUS", 
"FURNACE LANE" 

640 DATA "WHEN WAS THE FIRE OF LONDON"," 
1666", "1343", "1841" 

650 BATR"WHV WERE THE EGYPTIAN PYRAMIDS 
BUILT" 

655 DATA "AS TOMBS", "AS HOUSES" , "FOR GRRI 
N STORAGE" 

660 DATA "WHO WAS SENT TO AUSTRALIA IN TH 
£ LATE EIGHTEENTH CENTURY?" ' 

665 DATA "CONVICTS "/’PRISONERS OF WAR","S 
LAVES" 

670 DATA "WHICH CENTURY ARE WE IN NOW?" 
675 DATA "TWENTIETH", "NINETEENTH", "EIGHTE 
ENTH" 

680 DATA "WHO WAS DISRAELI?" 
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685 DATA "A PRIME MINISTER", "A KING", "AH 
AUTHOR" 

630 DAT A" WHO INVENTED THE TELEPHONE?" , "B 
ELL", "COOK", "BAIRD" 

708 DATA "WHO WAS THE FIRST MAN IN SPACE” 
705 DATA " VUR I G AGAR IN" , " NEIL ARMSTRONG " , 
"LEONARDO DA VINCI" 

710 DATA "WHEN DID THE FIRST WORLD WAR ST 
ART?" 

715 DATA" 1914", "1339", "1918" 

720 DATA "WHO WAS SIR ROBERT WALPOLE?" 

725 DATA "THE FIRST PRIME MINISTER"/' I NVE 
NTOR OF THE LOCOMOTIVE" 

727 DATA "DISCOVERER OF AMERICA" 

730 DATA" WITH WHICH ANIMALS DID HANNIBAL 
CROSS THE ALPS?" 

735 DATA " ELEPHANTS " , " CAMELS " , "LLAMAS " 

748 DATA "WHO STARTED THE POLICE FORCE?" 
745 D AT A " PEEL " , " NELSON " , " GLADSTONE " 

750 DATA "WHO DEFEATED THE SPANISH ARMADA 


755 DATA "FRANC IS DRAKE" , "WALTER RALEIGH" 
."HENRY VIII" 

760 DATA "WHAT WAS CHAIN-MAIL?" 

765 DATA"ARMOUR", "AN EARLY POSTRL SERVIC 
E" , "A SHIPS ANCHOR CHAIN" 

770 DATA "HOW MANY WIVES DID HENRY VIII H 
AVF? " 


780 DATA "WHAT ANIMAL SPREAD THE PLAGUE 0 
F 1665?" 

785 DATA " RAT " , " MOUSE " , " HORSE" 

790 DATA "WHO WAS THE FIRST PERSON TO WAL 
K ON THE MOON?" 

795 DATA " ARMSTRONG ", 11 GAG AR I N " , " SHEPHERD " 
10088 REM SET UP SOUNDS 
10018 30=54272 

1 0028 F0RT=8T028 •' POKESO+T , 0 : NEXT 


10030 POKESO+l , 20 
10840 F'OKESO+5, 9 


REM P I TCH 
: REM ATTACK, -"'DECAY 
1 8850 P0KES0+6 , 248 : REM SUST A I N/RELE ASE 
10068 P0KES0+24, 15 : REM VOLUME 
10878 P0KES0+4, 16 : REM WAVEFORM 
10880 RETURN 
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Spelling Test 



Well, you must have expected to find a spelling test somewhere in 
the book and here it is. 


Howto play 

Your computer will put a word on the screen for a few seconds and 
then blank the screen and ask you to spell the same word correctly. 


Programming Hints 

If you think the time that you see the word on the screen is too long 
or too short you can alter the pause in line 170. If you feel that the 
words are too easy for a bright young thing like you then ask your 
parents to type in some more difficult words from line 400 onward. 
If you add more words, change the 50 in lines 70, 80, and 120 to 
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match the total number of words. 

The computer will ask its questions at random so you shouldn’t 
really know what is coming up next. 

Program 

10 REM % ft : M $ % $ $ if $ $ $ $ $ $ $ $ $ $ i>j>: 

20 REM * SPELLING TEST * 

22 REM * * 

24 REM * * 

25 REM 

27 P0KE5328 1,13: POKE53280 , 1 2 
30 RT*=CHR* (1 7 > : F0RT= 1 TOS : AT*= AT*+RT* : NE 
XTT ; AT$=CHR$<19)+AT$ 

35 G0SIJ3 10009 
40 SC=0 
60 HS=0 
70 D I MW* (50) 

80 FORJ=1TO50 
90 RERDW*<J) 

100 NEXTJ 
110 FOR H=1TO20 
120 R=INT<RND<1)#50)+1 
130 PRINTCHR$< 147) 


140 

PR I NTLEFT* ( 

PT$, 

2) SPC (4) " 

SCORE : 

n • r 
.* •: 

sc 

150 

PR I NTLEFT* ( 

( 

2) spc as ) 

"HIGH 

SCOf 

~tr~ . 

* 

11 • 

HS 






160 

PR I NTLEFT* < 

AT*, 

8 ) SPC <18- 

(LEN(l< 

j$(r: 

) V 

2 ) > 

W*(R) : WW*=W* 

(R) 





165 

I FLEN ( W* ( R ) 

X10 

THENW$CR 

)=W*(F 


ii • 

GOT 

0165 






170 

FORDL=1TO20 

8 : NE 

.XTDL 




180 

PR I NTLEFT* ( 
1 \ 

AT*, 

8 > SPC < 9 > " 




199 

PR I NTLEFT* ( 

RT*, 

IS) SPC ( 9 ) 

"WHAT 

WAS 

TH 


E WORD?" 

1 35 PR I NTLEFT$ (AT*, 18) SPC ( 9 ) ; 

2O0 INPUT A* 

202 IFLEN(A*X10 THENA*=R*+" ":G0T0282 
210 I FA*=W$ ( R ) THEN270 
220 P0KES0+ 1,20: P0KES0+4 ,17: FQRQQ= 1 J038 : 
NEXTQQ : P0KE30+4, 16 

230 PR I NTLEFT * ( AT* , 8 ) SPC (11)" THE WORD Wfi 

C " 
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235 PR I NTLEFTf ( ATf , 1 0 ? SPC < 1 7- < LEN < W W$ ) / 
??WWf 

244 PR I NTLEFTf < ATf , 1 6 ) SPC ( 3 ) " 

II 

245 PR I NTLEFT $ ( RT$ ,18) SPC ( 3 ) " 

II 

250 FORDL= 1 TO400 : NEXTDL 
260 OOTO300 

270 POKESO+l , 25 : F'OKESO+4 , 17 : F0RQQ=1T039 
NEXTQQ : P0KES0+4, IS 
280 SC=SC+10 
300 NEXTN 

310 IFSOHSTHENHS=SC 
312 PRINTCHRfC 147) 

314 PRINTLEFT$<AT$,8)SPC(3?"YGUR FIHfiL 
CORE WRS "SC 

316 I FSOHS THENPR I HTLEFTf < ATf , 1 0 ) SPC < 3 
"THAT IS THE HIGHEST SCORE TODAY." 

320 INPUT" PLAY AGAIN <Y/H)".:Q$ 

330 I FLEFTf ( S$ , 1 ) = " N " THEN380 

340 SC=0 

360 GOTO! 10 

380 END 

400 BATA"QUIZ", "MESSAGE", "PAVEMENT" 

410 DATA "BICYCLE", "SPECIAL", "BENEATH" 
420 DATA " MOUNT A I N " , " L I STEM, " , " SCHOOL " 

430 DATA " TOMORROW " , " BUS I NESS " , " ADDRESS " 
440 DATA " PARALLEL " , " HE I GHT " , " LENGTH " 

450 DATA "CEILING", " EXPERT " , " KETTLE " 

468 DATA " COLONEL " , " SURPR I SE " , " FORECAST " 
470 DATA " ATTACH " , " RHUBARB ” , " MER I NGUE " 
480 DATA" DAFFODIL" , "KNOWLEDGE" , "YACHT" 
490 DATA " TONGUE ", "MI N I ATURE " , "DI NGHV " 
500 DAT A " AMATEUR " , " PUNCTUAL " , " I LLOG I CAL 
510 DATA" GIRAFFE" , "PARSLEY" , "TRIANGLE" 
520 DATA "LEGIBLE", "MOSAIC", "DISCIPLE" 
530 DATA " AMEND " , " GU I TAR " , " BEL I EVE " 

540 DATA " STAT I ON " , " PRESENCE " , " SA V I OUR " 
550 DATA "ALCOHOL", "CABARET", "SYLLABLE" 
560 DATA"AQUATIC", "PNEUMATIC" 

10000 REM SET UP SOUNDS 
10010 S0=54272 

1 0020 F0RT=8T028 : POKESO+T , 0 : NEXT 
1 8030 POKESO+ 1,20: REM P I TCH 
10040 P0KES0+5, 9 : REM ATTACK/DECAY 
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1 0S50 POKESO+S .■ 240 : REM SUSTfi I H/P.ELERSE 
18060 POKESO-i-24.. 15 : REM VOLUME 
10070 POKESO+4,16 -'REM WAVEFORM 
10080 RETURN 
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Speed Reading 



The sentence was: 

the river is fast and deep 



This is a game for those show-offs amongst you who can remember 
everything, write it down and get it right every time. 


A sentence will appear on the screen for a few seconds and you 
must remember the sentence and the correct spelling of the words 
if you are going to get your points. 

There is one big snag for clever little people though - the better 
your answers the faster the computer goes and you will only get to 
see the sentence for a split second before you have to answer. 


Howto play 

Your computer will put the line up on the screen and ask you to 
type it in after a short pause. 


Speed Reading 77 


You do not need to use caps, but remember to press RETURN. 

If you get it wrong the screen will tell you. 

Programming Hints 

If you want to change the sentences to make it more difficult for 
yourself, or your friends, the lines to change are from 400 onward. 


Program 


10 rem 

20 rem * # 

22 REM * SPEED READING * 

24 REM * * 

25 REM **Mm*M*XW**M*M* 

27 GOSUB 10000 

30 AT$=CHR$ <17): FORT = 1 TOS : AT$=AT$+AT$ : HE 
XTT:flT$=CHR$<19)+AT* 

32 PQKE5323 U 5 = POKE53280 , 1 3 
40 SC=0 
50 TM=300 


60 HS=0 
70 DIMW$<30) 

80 FORJ=1TO30 
30 REALW$<J) 

100 NEXTJ 

110 FQRN=1T02 

120 R= I NT < RNB < 1 ) #30 ) + 1 

130 PR I NTCHR* (147); CHR$ < 3 1) ; 

1 32 FORT=0TO39 : PR I NTCHR* < 18); CHR$ < 32 > i ■ N 


EXIT: print 


135 

137 


PR I NTLEFT* < AT$ , 2 ) CHR$ < 3 1 ) J CHR$ < 1 8 ) " 
SPEED READING "i 

FGRT=0TO40 : PRINTCHR$< 18) ; CHR* <32) ; : N 


EXTT:PRINTCHR$<144) 

140 PR I NTLEFT $ < FlT$ j 4 ) SPC ( 4 ) " SCORE : "SC 
1 50 PR I HTLEFT$ < AT# , 4 ) SPC ( 28 V H I GH SCORE : 


"HS 

1 55 P0KESQ+ 1 .- 60 : P0KES0+4 , 1 9 : F0RDL= 1 T038 : 
HEXTBL : P0KES0+4, 18 : F'OKESO+1 , 0 

156 PRINTCHRt<149) 

1 57 PR I NTLEFT$ < AT$ .. 7 ) SPC ( 5 ) CHR$ < 1 S ) i ■ FOR 
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T= 1 T OLEH < W* ( R ) ) : PR I HI " " 
1 68 PR I NTLEFT* (FiT* 8 ) SPC 


: NEXTT : PRINT 
5)CHR*(18);U*(R 


1 62 PR I NTLEFT* < RT* , 9 ) SPC < 5 > CHR* ( 1 8 ) : FOR 
T= 1 TOLEN ( W* ( R ) ) : PR I NT " " ; : NEXTT : PR I NT 
170 F0RDL=1T0(TM-SC) ; NEXTDL 
1 75 POKESO+ 1 , 69 = POKESD+4 .19: FORDL= 17030 : 
NEXTDL : P0KES0+4, 18 : POKESO+1 .. 0 
177 FORT=0TO2 

1 80 PR I NTLEFT * < FlT* , 7+T ) SPCC 5 > " 


182 NEXTT 

1 90 PR I NTLEFT* ( FiT* , 1 6 ) SPC < 5 ) CHR* ( 5 ) i ” WHrl 
T WAS THE SENTENCE?"; CHR* (1 44) 

195 PR I NTLEFT* < AT* .18) SPC ( 5 ) ; 

200 INPUTR*:fl*=" "+fl*+" " 

202 I FLEN ( fi* ) <32THENR*=R*+ " " : OOTO202 
210 1 FLEFT* < m . LEN < W* < P. ) ) ) =W* ( R ) THENGOTO 
270 

220 POKESO+ 1.23: POKESG+4 .17: FORDL= 1 TO30 : 
NEXTDL :P0KESQ+4. IS 

230 PR I NTLEFT * < RT$ . 6 ) SPC < 5 ) CHR* < 5 ) ; "THE 
SENTENCE WRS : CHR* (144) 

240 PR I NTLEFT* < RT* . 8 ) SPC < 4 ) W* < R ) 

244 PR I NTLEFT* < AT*. 16)SPC<3)" 


246 PR I NTLEFT* < RT* . 1 8 ) SPC ( 3 ) " 

it 


250 FORBL= 1 TO 1 000 : NEXTDL 
260 OOTO300 

270 POKESO+ 1,14= R0KES0+4 , 33 : FORDL= 1 TO30 : 

NEXTDL : P0KES0+4, 32 

280 SC=SC+10 

290 NEXTN 

300 NEXTN 

310 IFSOHSTHENHS=SC 
312 PR I NT CHR* (147) 

314 PR I NTLEFT * ( RT* , 8 ) SPC < 7 ) " VOUR FINAL S 
CORE WAS "ISC 

316 I FSC=HSTHENPR I NTLEFT* ( RT* , 10) SPC (3)" 
THIS IS THE HIGHEST SCORE TODRV. " 

318 PR I NTLEFT* < RT* , 1 2 ) SPC < 6 ) ; CHR* (18) ; " 
HIT RNV KEV TO PLRV RGRIN " 

320 WRIT 197, 64 

330 GETQ* : IFQ*=" "THEN330 

340 SC=0 
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350 TM=220 
360 GOTO 110 
370 : 

3S0 END 
390 : 

480 DflTfl" FOUR GREEN TURTLES " 

410 DATA" LONG GREEN PENCIL " 

420 DflTfl" THE WHEEL IS ROUND " 

430 DflTfl u THE BOOK IS NOT HEAVY " 

440 DflTfl 1 ’ THE LEAF IS GREEN " 

450 DflTfl" LOOK AT THE TREE " 

460 DflTfl" PICK UP THE RABBIT " 

470 DflTfl" EXTEND THE LADDER " 

480 DflTfl" THE KITTEN IS UP fi TREE " 

490 DflTfl" WE WAITED fl LONG TIME " 

500 DflTfl" WE DASHED THROUGH THE GATE " 
510 DflTfl" THE UMBRELLA IS OPEN " 

520 DflTfl" THE UMBRELLA IS CLOSED " 

538 DflTfl" THE BOOK IS TOO HEAVY " 

540 DflTfl" THE SHOP IS CLOSED " 

558 DflTfl" OPEN THE CUPBOARD " 

560 DflTfl" RAPID READING RESEARCH " 

570 DATA” ELEPHANTS ARE LARGE MAMMALS 
580 DflTfl" THE GRASS IS VERY GREEN " 

590 DflTfl" THE RIVER IS FAST AND DEEP " 
600 DflTfl" GREY COMPUTER PERIPHERAL " 
610 DflTfl" COMF'LETLV CORRECTED " 

620 DATA" RESEARCH AND DEVELOPMENT " 
630 DflTfl" UNTANGLE THE KNOT " 

648 DATA" FIERY RED FIRE ENGINE " 

650 DflTfl" CROSS EXAMINE THE WITNESS " 
668 DATA" HOLD UP THE MIRROR " 

678 DflTfl" fl LONG RUN OF LUCK " 

680 DflTfl" THE SPANIARD OWNS fl DOG 
690 DflTfl" SMALL PIECES OF BUTTER " 
10000 REM SET UP SOUNDS 
13010 30=54272 

1 0020 FGRT=0TQ2S : POKESO+T , 0 : NEXT 
1 0030 POKESO+ 1 , 20 : REM P I TCH 
10040 PQKESO+5,9 : REM flTTACK/DECAY 
1 8050 P0KES0+6 , 240 : REM SUSTfl I N/RELEfiSE 
10060 P0KES0+24.1 15 ; REM VOLUME 
13070 POKESO+4,16 : REM WAVEFORM 
10880 RETURN 



17 


Area Estimation 



This game might also be called ‘little boxes’ as you are going to 
have to decide how many small boxes are required to fill the area of 
a large rectangular box. 


Howto play 

Type in the names of the 2 players, pressing RETURN after each 
name. 

The computer will then show you a large rectangular box with one 
small box set in a corner. 

You must now decide how many small boxes you require to fill the 
larger box. 

Type in your estimated number and press RETURN. 


Area Estimation 81 


If you are wrong the computer will fill in one line on the upright 
(perpendicular) side of the box and ask you to estimate again on 
the totals required. 

If you still don’t estimate correctly then the bottom line 
(horizontal) will be completed. 

You should now be able to estimate the total by multiplying the 
two columns together. 

Should you get it right this time you’ll get a ‘happy’ bleep from your 
computer and you will move on to the next shape. A wrong answer 
at this stage will mean that the computer will fill in all the boxes and 
ask you again for the total. The computer will not let you move on 
until you have provided the correct results. The first player to 
reach a score of 10 wins the game . 


Programming Hints 

You can make the game a little easier by reducing the numbers in 
lines 90 and 110. 


Program 


10 REM % $ ###$$#$##$$# % # # $ # # # 

20 REM * * 

22 REM * AREA ESI I MAT I OH $ 

24 REM % # 

25 REM 

30 AT *=CHR.$ < 1 ? ) : FORT = 1 TG6 : AT$= AT*+ AT* TIE 
XTT : AT*=CHR*< 19)+AT* 

32 PGKE53280, 0 '■ PQKE5328 1,0: PRINTCHR* < 158 
) 

35 GOSUB 10060 

40 PR 1 NTCHR* <1 47 ) : PR I NTLEFT* < RT* , 1 0 > SPC < 
2) "WHAT ARE THE PLAVERS NAMES? n 
50 PR I NTLEFT* C AT* ,12) SPC < 3 ) ; : I NPUT " PLAVE 
R 1 ";P$<i> 

60 PR I NTLEFT* <AT*, 14)SPC<3); : I NPUT "PLAVE 
R 2 " > P*<2) 

70 PRINTCHR*<147)- 
90 HT«INT<RNDa>*16)+3 
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110 WT=INTCRNBCl)*30)+3 
112 F0RT=1T0HT 

1 1 4 PR I NTLEFTS CRTS , 3+T ) SPC C 4 > ; CHRS Cl 80 ) 
116 PR I HTLEFTS C ATS , 3+T ) SPC C 4+WT ) CHR$ ( 1 8 
0) 

120 HEXTT 

1 38 FORT= i TOUT : PR I HTLEFTS C RTS , 3 ) SPG C 3+T ) 
CHRS Cl 75) : NEXTT 

134 PR I HTLEFTS CRTS, 2+HT ) SPC C 4 ) ; CHRS C 204 ) 

135 PR I HTLEFTS < RTS , 3+HT ) SPC < 4 ) J CHRS C 204 ) 

136 PR I HTLEFTS C RTS , 3+HT ) SPC C 5 ) i CHRS C 204 ) 
1 40 F0RT*3T0WT ; PR I HTLEFTS C RTS , 3+HT ) SPC C 3 
+T); CHRS C 175) : NEXTT 

190. F0RH=1T02 

200 PRIHTLEFTSCRTS, 22)SPCC6) ;PSCH) ; " , HO 
14 MRNV SMALL SQUARES " 

205 PRIHTLEFTSCRTS, 23) SPC C7)" IH THE LRR 
GE RECTANGLE" 

207 PR I HTLEFTS C RTS , 24 ) SPC C 7 ) " 

ll • 

210 PRIHTLEFTSCRT$,24)SPC<7); •' INPUTAHSS 
212 I F VAL C RNSS ) =0THEN205 
215 AHS=VRLCRHSS) 

220 IFANSsWT#HT THEN 266 
230 : 

240 WA=WR+1 
258 GOTO320 
260 ; 

270 SCN)=SCN)+4-WA 
275 PRINTCHRSC147) 

280 PR I HTLEFTS C RTS , 1 ) SPC < 4 ) PS C 1 ) ; S Cl ) 

281 PR I HTLEFTS < ATS , 1 ) SPC C 24 ) F'S C 2 ) j S C 2 ) 

282 IFSC1)>90R SC 2) >9 THENTHEH GOTO 700 
290 WR=0 

300 00TD93 

320 IFWA>1 THEH GOTO380 

330 GOSUB600 

370 GOTO508 

380 IFWA>2THENGOTO430 

390 GQSUE620 

428 GOTO508 

430 I FWA>3THENGQTO500 

440 GOSUB6S0 

500 NEXTN 

518 GOTO 190 

600 PR I HTLEFTS C RTS , 2+HT ) SPC C 4 > CHRS <108) 
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602 PR I NTLEFT$ < RT$ , 3+HT > SPC < 4 ) CHR* (1 08 > 
685 F0RT=2T0WT:PRIHTLEFT$(RT$, 3+HT)SPCC3 
+T)CHR$<103) 

607 POKESO+ 1 ; 1 0+T : FQRBL* 1 T038 •• NENTBL : POK 
ESO+1,8 

6 1 0 PR I NTLEFT$ ( RT$ , 2+HT ) SPC <3+T) CHR* < 1 75 

) : NEXTT 

615 RETURN 

620 F0RT=1TQHT~2 

630 PR I NTLEFT* < RT$ , 3+T > SPC < 4 ) CHR$ ( 108) 
648 PR I NTLEFT* < fill , 3+T ) SPC ( 5 ) CHR$ < 1 S3 ) 
645 POKESO+ 1 .• 1 0+T : F0RDL= 1 T033 : NEXTDL : POK 
ESO+1/0 
650 NEXTT 

655 PR I NTLEFT* < RT$ , 2+HT ) SPC < 5 ) CHR$ < i 08 > : 
RETURN 

660 FORTT=lTOHT 

665 F0RT= 1 TOWT •' POKESO+ 1 , 1 8+T+TT 

670 PR I NTLEFT* ( AT* ,.3+TT ) SPC (3+T) CHR$ C 1 88 

)= NEXTT :NEXTTT 

675 POKESO+1,0 

688 RETURN 

700 GOTO780 

18880 REM SET UP SOUNDS 
10010 S0=54272 

1 0020 F0RT-8T028 : POKESO+T , 0 = NEXT 
10340 POKESO+5,9 : REM RTTRCK/DECRV 
1 8050 P0KES0+6 , 248 : REM SUSTR I N/RELEflSE 
10868 P0KES0+24.. 15 : REM VOLUME 
10878 POKESO+4/ 33 : REM WAVEFORM 
18080 RETURN 
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Number Series 






This is a game where you have to think ahead and predict the next 
numbers to appear on the screen. 


Your computer will start to print a string of numbers such as 1 1 , 22, 
33, 44 and will then stop and ask you to predict the next numbers 
which are, of course, 55. 


How to play 

As soon as you think you know the next number, press any key to 
stop the sequence then type in your answer and press RETURN. 

The correct answer will be rewarded by scoring a point on the 
board and a wrong answer will mean that the computer will show 
you the right number before moving on to the next string of 
numbers. Remember that the quicker you stop the sequence, the 
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more points you score. As soon as you reach 50 points, the 
computer will stop and give you your average score . 


Programming Notes 

As the program is set to choose numbers at random you may 
sometimes get the same series twice running which is lucky for you 
as you should know the right answer. 


Program 


REM 

28 REM # * 

22 REM * HUMBER SERIES * 

24 REM * # 

9 FI P E f '1 $ $ & $ if $ if if if $ if $ if if if; if $ if if if if 

27 POKE53280 . 2 : F0KE5328 1 , 6 
38 flT4'~CHR$< 1?) : FQRT=1T0S : RT$=flT$+RT£ : HE 
XTT ; RT $=CHR$ (19) +flT $ 

35 GOSUB 10080 
48 TR=0 
58 SC=8 

52 PRINTCHR$<i47> 

53 PR I NTLEFT* <RT$, 1 ) SRC ( 7 > ; CHR$ < 5 > ; " H U 


M B E R SERIES” 

54 PR I NTLEFT* < 3T$ , 3 ) SPC < 


CHR$ < 


•Jci / 


! K l C 


S: "CHR$<5)TR 

55 PR I NTLEFT* < RT$ .• 3 ) SPC < 25 , CHR$ < 152) " SCO 
RE:"CKR$a58);SC 

56 I FSC>=50THEN6OTO300 


cr *7 

68 PR I NTLEFT* ( RT$ , 6 ) SPC ( 5 > CHR$ ( 1 8 H I T 
FiHV KEY TO MfiKE R GUESS " 

61 IFSC>=50THENG0T0388 

j^2 C;C; J 

78 R= I NT < RHB ( 1 ) *30 ) - 1 5 
88 I FR=0THENGOTO70 
90 I FR<0THENSST = 1 00 

95 P0KES0+ 1 . 1 0+SST : P0KES0+4 .17: F0RDL= 1 TO 

180 : NEXTDL • P0KES0+4. 16 

1 80 PR I NTLEFTf < RT$ . 1 8 ) SPC < 5 > SST " « i 

110 F0RJ=1T05 

112 FORBL=1TO700 ; HEKTDL 
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114 GETA$ 

116 I Ffi$<> " " THEHGOTO 1 45 
120 SST =SST +R 
130 PRINTSST" 

1 32 P0KES0+ 1 , 1 0+S3T : P0KES0+4 ,17: F0RDL= 1 T 
0 1 00 : NEXTDL = P0KES0+4 , 1 6 
140 NEXTJ 

1 45 PR I NTLEFT* < RT* , i 3 ) SPC Cl); CHR* C 5 ) ; = WR 

IT137,64 

150 PGKESO+4, 16 

155 INPUT" WHRT IS THE NEXT NUMBER" ; Pi 
NS 

160 TR=TR+1 

178 I FfiHS = SST +RTHEHG0T0233 
180 : 

1 90 PR I NTLEFT* < RT$ , 20 ) SPC ( 8 ) CHR$ < 158) ; "T 
HE NEXT HUMBER IS "SST+R 
200 F0RBL= ITCH 003 = NEXTBL 
210 PRINTCHR$<17)“ ";CHR$<18);" PRES 
S RNV KEV TO CONTINUE " 

2 1 5 GETKY* = I FKV$~ " " THEH2 1 5 
228 G0T052 

230 PR I NTLEFT $ < AT* , 20 > SPC <14) ; CHR* < 1 58 ) ; 
"CORRECT! " 

240 SC=SC+7-J 

250 FORDL= 1 TO 1 000 : NEXTDL 

252 PR I NTCHR* <17); CHR* < 30 ) ; " " CHR$ < 1 

8);" PRESS RNV KEV TO CONTINUE 

255 GETKV* : IFKV*=" "THEN255 

260 G0T052 

380 ; 

360 PRINTCHR$<147) 

370 PR I NT L EFT* < RT$ ,10) SPC < 4 ) " YOUR RVERRG 
E SCORE WAS " 

380 PR I NTLEFT $ < AT $,13 ) SPC < 8 ) SC ' V " TR " « " 

SC/TR 

330 END 

18300 REM SET UP SOUNDS 
10010 30=54272 

10028 FORT=0TO28 : POKESO+T , 0 : NEXT 
1 0830 POKESO+ 1,20: p j ~CH 
18040 P0KE30+5, 9 : REM ATTRCK/BECRV 
18858 P0KES0+6, 248 : REM SUSTfi I N/RELERSE 
10860 P0KES0+24, 15 : REM VOLUME 
18070 P0KES0+4, 16 : REM WAVEFORM 
10880 RETURN 
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Morse Code 



1. SEND ME55RGE 
S. RANDOM LETTERS 
3 . WORDS 



If you are planning to become a sea captain or a pilot then this is the 
game for you. Even if you are just planning to help your parents on 
a yachting weekend you will be able to show off with this one. 


There is plenty of fun here as well as you can set your own speed of 
reply to the computer; set your own messages; ask other people to 
translate what you have sent. 


Howto play 

The computer will put up on the screen a menu which is a list of 
items from which you can make a choice. Menu is 

1 . Send a message 


2. Random letters 
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3. Words 

4. A to Z in morse 

The computer will ask you to choose from 1 , 2, 3 or 4. 

You will then be asked to choose a speed which you would like 
from 1 to 100. As 100 is for professional morse code operators we 
suggest you start at 10. 

Type in 10 and press RETURN 

The computer will then ask you for your message . 

If you have chosen 1 you could type in MAY THE FORCE BE 
WITH YOU, remembering to use capitals, press RETURN and 
the computer will play the message back to you in morse code. 

When the message is complete the computer will return to the 
menu and ask you for your next choice. 

No. 2 will mean that the computer will put random letters on the 
screen whilst sounding them at the same time. If you choose No. 3, 
words, the computer will sound out a word, at the speed you 
choose, which you must identify. When the computer completes 
the word it will ask you to type in the answer. If you are right - well 
done. If you are wrong however you will hear a nasty ‘raspberry’ 
and the computer will show you the correct answer before moving 
to another word. 

Remember that your knowledge of morse code could save lives. 


Programming Notes 

The words in the program can be changed when typing in the data 
statements in lines 1050 to 1080. 

Notice how the morse code is stored in lines 1100 to 1130. 
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Program 

1 0 REM # 'M # $ $ : M $ :f: if: # $ # if: $ % Wfdfdf. $ # 

20 REM * * 

22 REM * MORSE CODE * 

24 REM * * 

25 rem wmmwwwmmmw* 

30 fiT*=CHR$C 17) : F0RT=1T06 : fiT'$=RT*+RT$ : HE 
XTT : RT *=CHR* (19) +RT * 

35 P0KE53288 , 7 : P0KE5328 1 .. 6 : PR I NTCHR* ( 5 ) 
40 DIMM* (26) 

42 DIMW*<20) 

44 DIMC*C26) 

50 FOR ,T= 1 T026 : RERDM* < J ) : NEXT J 
60 FOR J= 1 T020 : RERDM* C J > : NEXT J 
70 FOR J= 1 T026 = RERDC* C J ) : NEXT J 
72 GOSUB 10000 
80 PR I NTCHR* < 147) 

82 PR I NTLEFT* CRT*, 2) SPC < 14) "MORSE CODE" 
85 PR I NTLEFT* ( RT* , 3 ) SPC C 14 ); : FORT=l TO 1 0 : 
PRINTCHR*< 196) ; : NEXTT 
90 PR I NTLEFT * < RT* , 6 ) SPC ( 1 0 ) " 1 . SEND MESS 
ROE" 

100 PR I NTLEFT * < RT* , 8 ) SPC <10 > " 2 . RANDOM L 
ETTERS" 

110 PP.I NTLEFT* ( RT* ,10) SPC ( 1 0 ) " 3 . WORDS " 
115 PR I NTLEFT* C RT*, 12 ) SPC C 1 0 ) " 4 . PRRCT I C 
E " 

120 PR I NTLEFT* < RT* , 1 4 ) SPC Cl 0 ) CHR* C 1 8 ) ; " 
PRESS 1,2,3 OR 4 " 

130 GETfl* : IFR*=""THEN130 

136 POKESO+1 , 1 0 : P0KES0+4, 33 : FORDL= 1 TO 1 0 : 
NEXTDL : P0KES0+4 , 32 

137 I Ffl$= " 4 " THENGOTO80O 

1 40 I Ffi$< " 1" ORR*> " 3 " THEN 1 38 

1 4 1 PR I NTLEFT* C RT* , 1 6 > SPC C 1 0 ) ; 

142 INPUT "SPEED (5 TO 50) ";SP 

143 IFSP>50 OR SP<5 THENG0T0141 
145 PRINTCHR*C 147) 

148 PR I NTLEFT * C RT* , 1 ) SPC C 1 2 ) " SPEED "JSP 
150 IFfl*<>" 1 "THENGOTO170 
160 GOTO400 

170 IFfl*O"2"THENGOTO190 
180 GOTO590 
200 : 

215 FORN=1TO10 
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216 PRINTCHR*<147> 

217 F'R I NTLEFT* < AT* , 1 > SPC C 1 2 ) " SPEED "JSP 
220 R=INT<RND<n#20) + l 

239 F0RJ= 1 TOLEN CW*<R>> 

249 L*=MID*CW*CR>,J,1> 

245 IFL*=" ” THENGOTO300 
256 L=A8C<L*)-S4 

269 F0RK= 1 TOLEN ( M* ( L ) ) 

265 P0KES0+ 1,0: PQKESQ+4 , 33 

267 N0= 1 +VAL ( M I D* ( M* < L ) , K , 1 ) ) t2 

270 P0KES0+ 1,35: F0RDL= 1 TOSPfcNO = NEXTDL = P0 
KESO+1 , 0 

275 FORDL= 1 T05#SP : NEXTDL 
280 NEXTK 

290 FORDL= 1 TO 1 30+SP : NEXTDL 
300 NEXTJ 

395 PR I NTLEFT* ( AT* , 3 ) SPC < 5 > j 
308 INPUT "WHAT WAS THE W0RB";Q*<1> 

3 1 0 I FQ* (1 ) 014* < R ) THENG0T03 1 6 
312 : 

314 PR I NTLEFT * < AT* , 8 > SPC < 1 2 ) " CORRECT ! " 

315 G0T0318 
^16 • 

317 PR I NTLEFT* < AT* , 6 > SPC <1 3 > " WRONG ! " 

318 PR I NTLEFT* < AT* , 8 > SPC < 1 0 }" THE WORD Wfi 

gu 

319 FORT = 1 TOLEN ( W* C R ) > 

329 PR I NTLEFT* < AT* , 1 0+T ) SPC (1 0 > M I D* < 14* ( R 
) , T , 1 > , C* < ASC < M I D* < 14* C R > , T , 1 > ) -64 ) 

325 NEXTT 

339 FORDL= 1 TO 1 000 : NEXTDL 

334 PR I NTLEFT* < AT* , 27 > CHR* Cl 8 > ; " PRESS 
ANY KEY FOR THE NEXT WORD " 

335 WAIT 197, 64 : GETQQ* : IFQQ*=" "THEN335 

340 NEXTN 
350 G0T089 

400 PR I NTLEFT * < AT* , 4 ) SPC CSV WHAT IS YOUR 
MESSAGE? " 

402 PR I NTLEFT* C AT* , 6 ) SPC < 8 ) ; : I NPUT I * 

404 I F I *> " Z " OR I *•< " A " THENPR I NTLEFT * C AT * , 1 
7 ) SPC < 2) "CAPITAL LETTERS, PLEASE" = GOTO400 
410 F0RJ=1 TOLEN < I*> 

420 L*=MID*CI*,J, 1) 

422 I FL*= " " THENFORDL= 1 TO200 : NEXTDL = GOTO 
500 

424 I FL*< " A " ORL*> " Z " THENG0T05 1 8 
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430 L=ASCCL$)-64 
440 FORK= 1 TOLEN < M$ CD) 

445 P0KES0+ 1 , 0 : P0KES0+4 , 33 

447 H0= 1 + VfiL < M I D$ < Mf CL), K , 1 ) > 12 

450 P0KES0+1 , 35 : F0RDL*1TQSP#N0 : NEKTDL : PO 

KESO+1,0 

455 FORHL= 1 T05#SP : NEKTDL 
460 FORDL=1TO20: NEKTDL 
470 NEKTK 

474 PR I NTLEFTf C ATf ,10) SPC < 7+ J ) ; L$ 

4S0 FORDL= 1 TO 1 30-SP : NEKTDL 
500 NEKTJ 

510 FORDL=1TO500: NEKTDL 
53@ GOTOS0 

590 PR I NTLEFTf < AT$ , 4 ) SPC C 0 ) ; 

600 FGRJ=1TO100 

605 I FJ /20= I NT C J 720 ) THENPR I NTCHRf C 147) ; " 

SPEED " ; SP : PR I NTCHRf C 1 7 ) 

610 R=INT<RND<1)#26)+1 

620 PRINT" " , Ch'Rf C R+64 ) , C$ C R ) 

630 F ORK= 1 TOLEN < M$ < R ) ) 

635 POKESO+ 1,0= P0KES0+4 , 33 

637 N0= 1 + VflL C M I Df C M$ C R ) , K , 1 ) ) 12 

638 IFNO<2THEN650 

640 PQKESO+ 1 , 35 = FORDL= 1 TOSF'*NO : NEKTDL = PO 
KESO+1,0 

650 FORDL= 1 T05#SP : NEKTDL 
660 NEXTK 

670 FORDL= 1 TO 1 38-SP : NEKTDL 
6S0 NEKTJ 

690 FORDL= 1 TO500 : NEKTDL 
700 PRINTCHRf C 147) 

710 G0T088 

800 REM MORSE TFiPPER USING F7 

80 1 PR I NTCHRf <147): PR I NTLEFTf C RT$ , 8 ) SPC C 
8) "USE "CHRfClS); 

802 PR I NT " F7 " CHRf < 1 46 ) " FOR MORSE TAPPER 

II 

803 PR I NTLEFTf C AT$ , 1 2 ) SPC < 8 ) "USE " CHR$ C 1 
8); "SPACE BAR"CHRfC146).;" TO STOP " 

805 POKESO+ 1,0: POKESQ+4 , 33 
8 1 0 GETMOf : I FMOf = " " THENPOKESO+ 1 , 0 : G0T08 1 
0 

815 I FMO$=CHR$ C 32 ) THENG0T088 

820 I FMO$=CHR$ <136) THEN POKESO+ 1 , 33 

830 WAIT197 , 64 : GOTO810 
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1000 BATA" 1300" , "3111" , "3131 " ; "3110" ; " 10 
00".. "1131"; "3310" 

1010 DflTR " 1 1 i 1 " ; " 1 1 00 " ; " 1 333 " ; " 3 1 30 " ; " 1 3 
11"; "3300"; "3100" 

1 020 DATA " 3330 " ; " 1 33 1" ; " 33 1 3 " ; " 1 3 1 0 " ; " 1 1 
10"; "3000"; "1139" 

1 030 D ATA " 1 1 30 " ; " 1 333 " " 3 1 1 3 " ; " 3 1 33 " " 33 


1 1 " 

1 050 DATA " DEL I CATESSEH " " NECESS I TV " " DEL 
ICIOUS" ; "PREHISTORIC"; "GOURMET" 

1060 DATA "PHILOSOPHER" "PRECIOUS" , "DISSE 
CT" "AGRICULTURE"; "SEMAPHORE" 

1 370 DATA " D I FF I CULT " .. " BUS I NESS 1 V MOHfiSTR 
V"; "FRAGILE"; "ALPHABET" 

1 080 DATA " DAFFOD I L " ; " KNOWLEDGE " ; " THROUGH 
"; "PINEAPPLE"; "KANGAROO" 


1110 DATA" 


1 128 DATA" mm ms a mm " " a aai magi n" 


1 130 DATA" a a a m " .. " a on rasas " 11 ms a a ms " ; 
11 ona i EBa n 11 .< 11 sags mi s s 1, 

10000 REM SET UP SOUNDS 
10010 30=54272 

1 0020 FORT=0TO28 : POKESO+T ; 0 : NEXT • 

1 0030 P0KES0+ 1,20= rem P I TCH 
18040 POKESO+5,9 : REM ATTfiCK/DECflV 
10050 P0KES0+6.. 240 : REM SUSTAIN/RELEASE 
10060 POKESO+24; 15 •' REM VOLUME 
10070 POKESO+4; 16 : REM WAVEFORM 
10090 RETURN 
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Areas 



This game is a bit of a brain teaser and might drive you mad before 
you start to get it right. To begin with you might even need a pencil 
and some paper but really that is a bit of a cheat. 


The object is to work out the total area of a rectangle and a triangle 
- together. Your parents will be highly impressed when you can tell 
them how much carpet they need for that funny shaped room 
upstairs. 


Howto play 

You will be asked ‘One or two players?’ 

Type in 1 or 2 and press RETURN 

You will then be asked for the player’s, or players’, names. 
RETURN as before. 



94 Areas 


The computer will then show you a green rectangle with a red 
triangle on top. You will be given the length of three of the sides 
and asked to work out the total area. 

If you do not get the answer correct first time the computer will 
then ask you to give the area of the rectangle first. If you answer 
this part correctly you will then be shown the triangle again and 
asked for its area. If either part of your answer is wrong the 
computer will give you the correct total area sum. 

If you get the answer right first time, clever clogs, you will be given 
two points but if you answer in two halves you will get only one 
point for your correct answers. 

To help you bend the rules the formula for area is 

CxB + !/2Bx(A-C) 


Program 


10 REM *********** 

20 REM * * 

22 REM * AREAS * 

24 REM * * 

25 REM *********** 

27 AT£=CHR£ Cl?) : F0RT= 1 T06 : AT£=AT£+AT£ ■' NE 
HTT : AT £=CHR£ ( 1 9 ) +AT£ 

30 PRINTCHRfC 147) :G0SUB 10000 

35 POKE53230, 6 : P0KE53281 .■ 15 

60 INPUT" 1 OR 2 PLAVERS";N 

70 A£=CHR£ (18): F0RT= 1TQA : A£=A£+" " : NEXTT 

'• A£=A£+CHR£ C 146) 

72 FORT=1TOB : PRINTLEFT£CAT£; 23-T)SPC< 1 )A 
£ : NEXTT 

80 PR I HTLEFT $ ( AT£ j 1 0 ) SPC C 2 ) " WHAT ARE THE 
PLAYERS NAMES?" 

90 F0RJ=1T0N 

100 PRIHTLEFT£CAT£/ 12)SPC<4) "PLAYER" ; J 
1 1 0 PR I NTLEFT£ C AT£ , 1 4 ) SPC C 4 ) i ■ I NPUTP* C J ) 
120 NEXTJ 

122 F’RIHTCHR£C 147) 

130 FORL=1T0N 

140 A= I NT C RND ( 1 ) * 1 0 ) +2 

150 B= I NT C RND Cl) *8 ) +3 
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160 C=fl+B 

162 IFC>=24THENOOTO140 

170 R$=CHR$<30)+CHR$(18) :FORT=lTQR:fi$=fi$ 

+ " " = NEXTT = RS=fi$+CHRS ( 1 46 ) 

1 75 CS=CHRS < 28 ) +CHRS (18) +CHRS (168) : FORT= 
1 TOfl- 1 : CS=C$+ " " = NEXTT : CS=CS+CHRS < 1 46 ) 
177 X=13+C/2 

1 80 F0RT= 1 TOB : PR I NTLEFT* ( RTS , X-T ) SPC < 5 ) R 
: NEXTT 

1 85 FORT=BTOC = PR I NTLEFT* ( RTS , X-T ) SPC ( 5+ < 
T-B ) ) LEFTS ( CS , LEM ( CS ) - ( T-B ) - 1 ) : NEXTT 
240 PR I NTLEFTS < ATS , X- ( BX2 > ) SPC (2-1 NT ( BX 1 
0))B 

250 PR I NTLEFTS (RTS, 13)SPC(5+A)C 
260 PR I NTLEFT $ ( RTS , X+ 1 ) SPC ( 4+R/2 ) R 
262 GOSUB650 

265 PR I NTLEFTS ( RTS , 6 ) SPC ( 25 ) PS ( L ) 

270 PR I NTLEFTS (ATS, 7) SPC (24) "WHAT IS THE 

ll 

275 PR I NTLEFT S ( RTS , 8 ) SPC ( 24 )" TOTAL RRER? 

ll 

280 PRINTLEFTS(RTS, 10)SPC(24); : INPUTRNS 
290 I FRNS=fi*B+fl/2* ( C-B ) THENG0TO550 
3 1 0 FORSL=50TO 1 STEP- 1 = POKESO+ 1 , SL : NEXTSL 
: POKESO+1 , 0 
312 G0SUB658 

3 1 5 PR I NTLEFT* ( RTS , 6 ) SPC ( 24 ) PS ( L ) 

320 PRINTLEFTS(RTS,7)SPC(24)"WHRT IS THE 

ll 

325 PRT NTLEFT $ ( RTS , 8 ) SPC ( 24 ) " AREA OF THE 

It 

327 PRINTLEFTS(RT$,9)SPC(24)" RECTANGLE? 

II 

330 PR I NTLEFT S ( RTS ,10) SPC ( 24 ) ; : I NPUTRC 
340 IFRC=R$BTHENGOTO370 
350 FORSL=50TO1 STEP-1 : POKESO+1 , SL : NEXTSL 
: POKESO+1, 0 

360 PP. I NTLEFT S ( ATS , 1 4 ) SPC ( 2 1 ) " THE RRER 0 
F THE" 

365 PR I NTLEFT $ < RTS , 1 5 > SPC (21)" RECTRNG 

LE " 

367 PR I NTLEFT S ( RTS , 1 6 ) SPC (21)" IS "Jfl 

#B 

368 FORBL=1TO1000 : NEXTBL 
370 GOSUB650 

372 PR I NTLEFTS ( RTS, 7) SPC (24) "WHRT IS THE 
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375 PR I NTLEFT* (AT*, 8) SPC (24) "AREA OF THE 

II 

377 PR I NTLEFT* (AT*, 9) SPC (24)" TRIANGLE ? 

II 

380 PR I NTLEFT* ( AT* , 1 0 ) SPC ( 24 ) ; : I NPUTTG 
390 IFTG=AX2*(C~B) THEN G0T0428 
480 : 

410 FORSL=50TO1STEP~1 : POKESO+1 , SL : NEXTSL 
:POKESO+l/0 

411 PR I NTLEFT * ( AT* , 1 4 ) SPC ( 2 1 ) " THE AREA 0 
F THE " 

412 PR I NTLEFT* < AT* , 1 5 ) SPC (21)" TR I RNGL 

E " 

417 PR I NTLEFT $ ( AT* , 1 6 ) SPC (21)" IS " i A 

X2*(C-B) 

418 FORBL=1TO1000:NEXTBL 

420 GOSUBS50 

421 PR I NTLEFT* ( AT* , 7 ) SPC ( 24 ) "WHAT IS THE 

II 

422 PR I NTLEFT* (AT*, 8) SPC (24) "TOTAL AREA? 

II 

430 PRINTLEFT*(AT*,10)SPC(24); : INPUTANS 
448 I FANS=fl#B+A/2# ( C-B ) THENGOTO470 
458 FORSL=50TO 1 STEP- 1 : POKESO+ 1,SL : NEXTSL 
: POKESO+1 , 0 
460 GOTO500 

470 F0RQ=1T04 = FORT=1TO10 = F0RTT=1T05 = POKE 
SO+1 , Q#T#TT : NEXTTT , T , Q : POKESO+l , 0 
480 S(L)=S(L)+1 
490 G0T05S2 

500 PR I NTLEFT* (AT*, 14) SPC (23) "THE TOTAL 
AREA " 

502 PR I NTLEFT* (AT*.. 15) SPC ( 23 ) " I S " A*B+ 

A/2#(C-B) 

504 FQRDll= 1 TO 1 000 : NEXTBL 
506 F'RINTCHR*( 147) 

510 GOTO570 

550 FORQ= 1 T04 : FORT= 1 TO 1 0 : FORTT* 1 T05 : POKE 
SO+1 , Q#T#TT : NEXTTT, T, Q : POKESO+1 , 0 
560 S(L)=S(L)+2 
562 PRINTCHR*( 147) 

570 PR I NTLEFT* ( AT* , 1 ) SPC ( 4 ) P* Cl);" : " S ( 1 
) 

575 PR I NTLEFT* ( AT* , 1 ) SPC ( 24 ) P* ( 2 ) ; " = " j S 
(2) 

580 NEXTL 
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600 GOTO 130 

650 F0RT=5T022 : PRINTLEFT$(RT$, T)SPC<21 ) " 

":NEXTT: RETURN 
10000 REM SET UP SOUNDS 
10010 S0=54272 

1 0020 FORT=0TO28 : POKESO+T , 0 : KENT 
10040 POKESO+5,9 : REM PTTflCK/DECflV 
10050 P0KES0+6 ^ 240 : REM SUSTAIN, •■'RELEASE 
10060 P0KES0+24; 15 : REM VOLUME 
10070 POKESO+4,17 : REM WAVEFORM 
10080 RETURN 



21 


Missing Letter 



If you are one of those poor souls who are always being told by 
someone that you miss letters in words don’t worry too much 
because it’s supposed to mean that you are clever and that your 
brain works faster than your hands. However, it’s not a good idea 
to go on doing it so we have invented this game to help you. 

Words are going to appear on the screen and you are going to have 
to spot the missing letter. 

An example 

sper should be spear 


Howto play 

Your computer will ask you 1 or 2 players? 
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Type in 1 or 2 and press RETURN. 

In the middle of the screen will appear a word with a letter missing. 

To complete the word you press the letter of your choice. 

It is not necessary to press the RETURN key 

If your answer is correct the computer will tell you that your 
decision was correct, award you a number of points depending on 
the speed of your response and move on to the next word. 

Wrong answers will mean no points and the computer will move on 
to the other player - if there are two playing. 


Programming Notes 

It is possible to change the words used in the program by replacing 
those in the data statements of lines 350 to 440 with your own 
selection. If you increase the number of words though, change the 
50 in lines 60 , 90 and 190 to match the total number of words . 


Program 

10 REM ####$#### % # % # # % % % $ $ % # 

20 REM * * 

22 REM * MISSING LETTERS * 

24 REM * # 

25 rem 

30 FlT$=CHR$< 17) : F0R.T=1TQS : RT$=flT$+RT$ : HE 
XTT : RT $=CHR$ ( 1 9 ) +RT$ 

32 PRINTCHR$< 147) : GOSUB 10000 

35 PQKE53280 , 7 : P0KE5328 1 , 1 4 : PR I NT CHR$ < 1 4 

4) 

40 PR I NTLEFT* < flT$,2) SPC < 3 ) j : I NPUT " ONE OR 
TWO PLflVERS ";P$ 

50 IFP$<" 1 "ORP$>"2"THEN40 
55 P=VflL<P$) 

60 D I MW$ < 50 ) : P 3 VfiL ( P$ ) 

70 DIMSC2) 

80 Q=0 
82 IS* 100 
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90 FQRJ=1TO50 
100 RERBW$(J) 

110 NEXTJ 

128 PRINTCHR$< 147) 

1 25 PR I NTLEFT* < RT$ , 1 > SPC (12)" QUEST I OHS : 
0" 

130 F0RJ=1T0P 

140 PRINTLEFT$<flT$,3)SPC<J#20-17>; " PLflVE 
R " J ; 11 : 0" 

150 NEXTJ 
160 Q=Q+1 
170 F0RJ=1T0P 

130 PRINTLEFT$<AT$;3)SPC<J#20-17); "PLflVE 
R "J;": ”;SCJ) 

190 R= I NT .< RNB < 1 ) #50 ) + 1 
200 R1=INT<RND<1)#5)+1 
210 B$=MIB$<W$(R), 1,R1-1)+MIB$<W$<R),R1+ 
1) 

215 PR I NTLEFTf- < RT$ ,10) SPC <15) ; " 

It 

220 PRINTLEFT$<flT$,10)SPC<15)J" ";D$ 

222 PRINTLEFT$<flT$ill)SPC<15); " 

II 

224 PR I NTLEFT# < flT$ , 9 ) SPC <1 5 ) J ” 

II 

230 PR I NTLEFT# < AT* , 1 6 ) SPC < 1 2 ) ; " M I SS I NG L 
ETTER?" 

235 WRIT 197; 64 
240 GETR* 

250 IFfl$=" "THENIS=IS-0. 5 : GOTO240 
252 CB=flSC<fl*+CHR$<0)) 

254 IFCB>=97 THENGOTO260 
256 P.EM fl$=CHR$(CB+32) 

260 IFIS<10THENIS=10 

270 I F A*OM I B* < W* < R ) , R1 , 1 )THENGOTO280 

272 M$=" CORRECT! " 

274 S<J)=S<J)+INT<IS/10) 

275 IS=100 

276 FORBL= 1 TO200STEP3 : POKESO+ 1 ; BL : HEXTBL 
: POKESO+1 0 

278 GOTO290 

230 m=" WRONG! " 

282 FORBL=200TO 1 STEP-3 : POKESO+ 1 , BL = NEXTB 
L- POKESO+1 ;0 

290 PR I NTLEFT* < RT$ , 20 ) SPC <1 4 ) ; M$ 

300 PR I NTLEFT* < AT* , 1 ) SPC < 22 ) ; Q 
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310 PR I NTLEFT* C AT$ , 3 ) SPC < J*20- 1 7 ) ; " PLAVE 
R 11 ‘ t J 11 : 11 I ^ ( T ) 

320 ' FQRDL= 1 T 0500 : NEKTBL 

325 PR I NTLEFT$ < AT$ , 20 > SF'C < 1 4 / " 

li 

330 POKE 1 98, 0 : NEXTJ 

340 POKE 1 98 , 0 : GOTO 1 60 

350 DATA "HORSE" , "STREET" , "DAILV" , " MONEY " 

, "PEOPLE" 

360 D ATA " YELLOW 'V BOTTLE ' V ORANGE ' V SAUC 
ER" , "BREAKFAST" 

370 DATA "COMPASS "/’KITTEN" /'ENGINE" /'HIS 
TORY "/'SAUSAGE" 

380 DATA "ADDRESS "/'CEILING "/'EXPERT "/'MV 
STERY" /’COMPUTER" 

3S0 DATA "PROMISE" , "CLOWN" , "MESSAGE" , "EAR 
LV M > M LISTEN" 

400 DATA "MAGIC", "SCHOOL", "TOMORROW", "KET 
TLE", "DETACH" 

410 DATA "MECHANIC" , "CYLINDER" , "SCIENTIFI 
C", "ILLOGICAL", "GIRAFFE" 

420 DATA "PARSLEY", "TRIANGLE", "LEGIBLE", " 
MEDICINE", "PRESENCE" 

430 DATA "TRIANGLE" , "PENGUIN" , "ALPHABET" , 
"DAFFODIL", "KNOWLEDGE" 

440 DATA" YACHT", "FIERY", "KANGAROO", "RASP 
BERRY", "CHRISTMAS" 

10800 REM SET UP SOUNDS 
10010 30=54272 

1 0020 FGRT=0TO28 = POKESO+T , Q '■ NEXT 
10040 POKESO+5,9 : REM ATTfiCK/BECAY 
10050 P0KES0+6, 240 : REM SUSTAIN/RELEASE 
10068 P0KES0+24, 15 : REM VOLUME 
10070 P0KES0+4, 17 :REM WAVEFORM 
10080 RETURN 
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Duck Shoot 






Here is a game for your memory, your speed and your eyesight. 


You will be shown a screen full of ducks - thirty in total - and then 
you will have to solve a multiplication sum before you can shoot at 
the sitting ducks. 

Just in case you are worried about the ducks - they are not real, we 
borrowed them from a fairground. 


Howto play 

You will be asked to solve a multiplication table which will be 
selected at random by your computer. If you get the answer right 
and type in properly you will be allowed to shoot at the ducks. 

It is not as simple as it sounds however because the gun moves from 
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left to right and back again. You have to stop the gun which will fire 
on its own at the row of ducks. If you stop the gun in the wrong 
place the shot may go between a row of the ‘quackers’ and leave 
you without a score despite your correct answer to the sum . 

To fire the gun you must press the space bar. 

Y our score board will show you how many shots were on target. 

The trick is to be clever - and fast. 


Program 


f M R 1. 1 1 if if if if if if if if .'f if if if if if :f if if :f if if. if 

20 REM # if 

22 REM * DUCK SHOOT if 

24 REM * f 

25 REM if if $ if if ififif if if if if if iff if if if f if if 
27 P0KE52, 48 : P0KE56, 48 : CLR 

30 AT* =CHR* (17) : F0RT= 1 TOS : RT*=RT$+flT$ : NE 
KTT : RT *=CHR* ( 1 3 ) +flT * 

32 POKE53280 , 5 : P0KE5328 1 , 5 

35 GOSUB7080 : PR I NTCHR* ( 1 47 > : GOSUB 1 0000 

40 HT=0 : SH=0 

100 F0RJ=2T039STEP3 

105 F0RK=ST0 1 0STEP2 

1 1 0 P0KE646 , K+ 1 : PR I NTLEFT* ( RT* , K ) SPC < J ) C 
HR*<35);CHR*(3S> 

115 NEXTK 
120 NEXTJ 

130 M 1 = I N T ( RH D ( 1 ) :f 1 2 > + 1 
140 H2=INT(RHDa>fl2) + i 
1 45 PR I HTLEFT $ ( RT* ,19) SPC ( 8 ) CHR* ( 1 44 ) ; " W 
Hfii is ";chr$(5);ni;chr$< 144); 11 x "Chr*< 
5);N2 

1 47 PR I NTLEFT* ( RT* , 2 1 ) SPC ( 8 ) " 

ii 

1 49 PR I HTLEFT* ( RT* ,21) SPC ( 8 ) i 

150 INPUTRNS* 

155 I FVfiL ( RN3* ) < 1 THEN00T01S5 
157 fiN3= VfiL ( RHS* ) 

169 IFfiNS=Nl*H2 THEHGOTO200 
1 65 P0KESG+ 1,50 = P0KES0+4 , 33 : F0RDL= 1TO30 : 
HEXTDL : P0KES0+4, 16 
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170 GOTO 145 
200 CC=1 
210 CD=1 

215 P0KES0+1 , 28 : P0KES0+4, 33 : FORDL=1TO30 : 
NEXTDL 

217 PR I NTLEFT* < RT* , 19 > SPC < 8 ) " 

n 

2 1 8 PR I NTLEFT * ( RT$ , 28 ) SPC ( 5 > ” 

il 

219 PR I NTLEFT * < RT* , 2 1 ) SPC C 5 ) " 

ti 

220 PRINTLEFT*<RT*,18>SPC<CC>" " 

238 CC=CC+CD 

235 P0KES0+1, 18+CC 

240 IFCOS9 0RCCC1 THENCIN-CD 

250 PR I NTLEFT* < RT* , 1 8 ) SPC ( CC ) CHR* < 37 > 

260 GETKV*:IFKV*0" "THEHGOTO220 

270 SH=SH+1 

275 POKESO+4,129 

280 F0RJ=17T05STEP-1 

285 P0KES0+1,J 

287 S=PEEK < 984+40# J+CC > 

290 IFS=350RS=36 THENGQTO330 

300 PR I NTLEFT* ( AT* , J ) SPC ( CC > " . " J 

305 PR I NTLEFT* < AT* , J ) SPC < CC ) " " J 

310 NEXTJ 

314 P0KES0+4, 128 

328 GOTO380 

330 P0KES0+4 ,17 = FQRB= 1 TO 1 0 

340 POKESO+l , B : FORDL=40TO60STEP2 : POKESO+ 

1 , BL : NEXTDL 

350 HEXTB : PQKESO+4, 16 

360 PR I NTLEFT* C RT* , J ) SPC ( CC- 1 ) " 

370 HT=HT+1 

388 PR I NTLEFT* < AT* , 1 > SPC < 4 > CHR* ( 1 44 ) ; " SH 
OTS= "SH" HITS: "HT 

385 PRINTCHR*<19> 

395 PR I NTLEFT* < RT* , 1 8 ) SPC ( CC ) " " 

400 IFHT=39THEN END 
418 GOTO 130 

7000 REM ### READ IN BfiTfl ### 

7020 P0KE56334 , PEEK < 56334 > RNB254 

7030 POKE 1 , PEEK < 1 ) RND25 1 

7040 FOR I =0TO5 1 1 : POKE 1 2283+ I , PEEK ( 53248+ 

I > : NEXT I 

7058 POKE 1 , PEEK < 1 > 0R4 : P0KE56334 , PEEK ( 563 
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4 ) OF 

1 




@63 

FOR I =0T 

J>:3 ; 

PEREA : F 

’0KE12568+I ■ H : HEX'i 

895 

P0KE532 

72.. ( 

PEEK (SC 

5272)fiNIi240)H"12 

100 

RETURN 




000 

DATA 28 

; f\ ( 

254,31, 

1 0 t 1 5 .« ( -I' i U ; <0 j cv4 C> 

cr. cr 

254,252 

: 

,240 


1010 

DATA0, 2 

4,24 

,60,25: 

5 .. 255 .. 255 .> 255 


10080 REM SET UP SOUNDS 
10010 80=54272 

1 0920 F0RT=9T028 ; POKESO+T , 9 : NEXT 
1 8930 POKESO+ 1,20: REM P I TCH 
10040 POKESO+5,9 : REM ATTACK/DECriV 
18050 P0KE80+S, 240 : REM SUSTRIN/RELEfiSE 
1 @060 P0KES0+24 , 15 : REM VOLUME 
10070 POKESO+4,16 : REM WAVEFORM 
10080 RETURN 
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Missing Numbers 



46 77 * 139 



A competition designed to see who is quickest between two players 
at working out the missing number. You can play on your own but 
it’s no fun if there isn’t anyone to show off to. 


You’ll be given a selection of sums and you will have to provide the 
number that has been replaced by a question mark. 

Examples: 

234 + ? =563 

? - 56 = 834 

169 - 73 = ? 
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How to play 

You will be asked the players’ names which you type in, and press 
RETURN 

The computer will then ask you a question of the type shown 
above. 

Type in your answer and press RETURN 
Players will be asked questions alternately. 

A wrong answer will mean a ‘raspberry’ buzz and the next question 
will move to your opponent . 

Scores are shown on the screen. 


Program 


10 REM ^ . :, k ^ ^ ^ ^ ^ sk 
2@ REM # * 

22 REM * MISSING HUMBER # 

24 REM sft $ 

25 REM 3ff*ifs**$ijs**if:‘#jft!iEi|55Nf*3!e*!f«i|£ 

30 AT*=CHR*<17} = F0RT=1T06 : AT$=AT*+AT* : HE 
NTT : AT*=CHR*a9>+AT* 

32 GOSUB 1 0000 : POKE53280 , 5 : P0KE5328 1 , 2 
35 PRINTCHR*( 147) 

40 PR I NTLEFT * ( AT* .. 8 > SPC ( 4 > " WHAT ARE THE 
PLRVERS NAMES?" 

70 INPUT " PLOVER ONE: ";R$a> 

75 P* (1 ) =CHR* ( 1 59 ) +P* a > 

80 PR I NTLEFT* ( AT* , 1 2 ) SPC ( S > " PLAVER ONE : 
";P*a);CHR*(144) 

85 P0KES0+ 1 , 40 : FQRBL= 1 TO 1 0.0 : NEXTDL : POKES 
0+1 ; 0 

90 INPUT" PLAVER TW0 : ";P*<2> 

95 P* ( 2 > =CHR* ( 5 ) +P* ( 2 ) 

100 PP. I NTLEFT* (AT*.. 16>SPC(6> "PLAVER TWO : 
" P* ( 2 ) 

1 1 0 P0KES0+ 1 , 35 : F0RDL= 1 TO 1 00 : NEXTDL : POKE 
SO+1..0 

1 20 F0RBL= 1 T0288 : NEXTDL 
125 PRINTCHR*( 147) 
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1 30 P0KES0+ 1 , 45 : F0RDL= 1 TO 1 00 : MENTBL : POKE 

SO+1,8 

180 MAN=89 

190 MIN=18 

2001 F ORC= 1 T 02 

210 R ( 1 ) = I N I < R N D ( 1 ) $M fl K ) + M I N 
220 R ( 2 ) = I NT ( RHB ( 1 } *:1RK ) +11 1 H 
230 3IG=INT(RND( 1 )$2) 

240 I FS I G=@THEH8 1 G=- 1 

250 R ( 3 ) =r ( i ) j-r ( 2 } $3iQ 

255 IFR(3X8 THENG0T0210 

260 R= I NT ( RNB ( 1 ) $3 ) + 1 

270 I FR= 1 THENPR I NTLEFT# ( AT# , 1 2 ) SF’C (11) " 

??" : GOTO280 

275 PR I NTLEFT # ( AT# , 1 2 ) SPC (11); R ( 1 ) 

288 I FR=2THEHPR I NTLEFT# (AT#, 12) SPC ( 1 6 ) " 
??" : GOTO2S0 

285 PR I NTLEFT# ( AT# , 1 2 ) SPC (16) R ( 2 ) 

290 I FR=3THENPR I NTLEFT# ( flT$ , 1 2 ) SPC (21)"? 
? " : GOTO300 

295 PR I NTLEFT# (RT$, 12) SPC (21); R(3) > " " 

300 I FS I G<0THENPR I NTLEFT# ( AT# , 1 2 ) SPC ( 1 4 ) 

ii _ li 

305 I FS I G>0THENPR I NTLEFT# ( AT# , 1 2 ) SPC (14) 

il II 

310 PR I NTLEFT# (AT#, 12) SPC ( 19) ,, = " 

320 PRINTCHR#( 158) 

330 PR I NTLEFT # ( AT# , 1 8 ) SPC ( 3 ) " WHAT IS THE 
HISSING NUMBER, ";P#(C) M ? 

332 PR I NTLEFT# ( AT# , 20 ) SPC ( 7 ) ; " 

ii 

334 PR I NTLEFT# ( AT# , 20 ) SPC ( 7 ) ; CHR# ( 1 58 ) ; " 

li 

338 PR I NTLEFT# ( AT# , 28 ) SPC ( 7 ) ; CHR# ( 1 53 ) ; 
348 INPUTANS# 

345 IFVAL(ANS$)<1 THEN G0T0334 

358 ANS=VAL(ANS#) : I FANSOR ( R ) THENGOT 0438 

360 F0RBL= 1TOI0: F0RBD= 1 T028 : P0KES0+ 1 , BL# 

BB : NENTBB , BL : F'OKESO+1 , 8 

370 PR I NTLEFT# ( AT# , 8 ) SPC ( 1 3 ) " CORRECT ! " 

388 S(C)=S(C)+1 

390 PR I NTLEFT# ( AT# , 2 ) SPC ( 4 ) P# ( 1 ) ; " : " ; S < 


4@0 PR I NTLEFT# ( AT# , 2 > SPC ( 23 ) ; P# ( 2 > = " ; 
S ( 2 ) 

418 I FS ( 1 )=28 OR S(2)=28 THEN G0T0478 
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428 00T0445 

430 FQRDL= 1 810 1 STEP- 1 : F0RBIi= 1 T028 : P0KES0 

+ i , DL#DD : NEKTBB BL = P0KES0+ 1 , 8 

448 PR I HTLEFT $ ( RT$ , 6 ) SPC ( 1 6 > " WRONG ! “ 

442 PR I HTLEFTf < HT$ , 8 ) SPC ( 6 ) "THE M I SS I HO 
HUMBER WAS ";R(R) 

445 FORDL* 1 TO i 638 = HEHTDL 
458 PR I NTLEFT* ( flT$ .. 6 ) SPC ( 1 8 > " 


454 F'R I HTLEFT* <fiT$, 8>SPC<4> 


468 NEXTC 

465 G0T0288 

470 F0RU=1T02 

4S0 IFSCWJO20 THEHGOTO500 

490 PR I HTLEFT $ < FIT*,. 5 > SPC < 8 ) P$ < N > " IS TH 

E WIHNER!" 

580 NEXTW 
510 EHD 

10800 REM SET UP SOUNDS 
18010 30=54272 

10020 FORT=0TO28 : POKESO+T , 0 : NEXT 
18040 POKESO+5..9 : REM ATTACK/'DECAY 
1 8050 P0KES0+6 .• 240 : REM SUSTA I N/RELERSE 
10860 POKESO+24. 15 : REM VOLUME 
1.0870 POKESO+4,33 : REM WAVEFORM 
10080 RETURN 
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Hangman 



This is a game you may have played before using paper and pencil 
but now you are up against a computer. 


The object of the game is to spell out a word correctly, in as few 
moves as possible, to save a man from being hanged. Every correct 
answer helps to complete the word, every wrong answer helps to 
hang the poor man. 

You can, if you wish, change the title to hangwoman. 


How to play 

The computer will put on the screen a five or more letter word and 
will ask you for a letter to help fill in the blanks. 

You don’t need to press the RETURN key, just type the letter of 
your choice and the computer will do the rest. 
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Each letter you get right will be filled in but each letter you get 
wrong will help to complete the gallows, the rope and the victim. 

The computer will also show the letters you have chosen 
incorrectly so that you don’t choose them again and hang the man 
in error. 

Scores are kept at the top of the screen. 

Remember - think before you print - it could save a life . 


Programming Notes 

The words for selection can be changed when typing in the data in 
lines 700 to 790. If you increase the number of words, change the 
50 in lines 27, 50 and 80 to match the total number of words. 


Program 

10 REM 

29 REM * * 

22 REM * HANGMAN # 

24 REM * * 

25 REM *lW:m*;m:m***«*H< 

27 DIMW$<50> 

30 AT$=CHR$ <1 7 > : F0RT= 1 TOS : RT$=RT$+RT* : HE 
XTT : AT $=CHR$ ( 1 9 > +AT $ 

32 C$=" " ; FL=0 

34 SC=@ : NW=0 : PR I NTCHR$ ( 1 47 ) 

35 POKE53280, 14 = P0KE53281 , 12 
40 GOSUB 1 000 : GOSUB 1 0000 

50 FGRJ=1T05@ 

60 RERBW$<J> 

70 NEXTJ 

80 R=INT<RND<1>#50)+1 
82 LC=0 : C$=" " 

80 L-T — • 1 0 

92 PP. I NTLEFT$ ( f\J$ , 2 ) SPC < 4 ) "WORDS : " NW • 

95 PR I NTLEFTf ( AT$ , 2 > SPC < 25 ) " SCORE = " SC 
100 F0RJ=1T0LEN<W$<R)) 

110 PR I NTLEFT$ C RT$ , 20 > SPC ( 1 1 +J*2 ) CHR$ ( 1 8 
3>JCHR$<32> 
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115 C*=C$+’’ " 

120 NEXTJ 

200 GET LTR$ : IF LTR$=" "THEH200 

210 IFLTR$<"fl"OR LTR$>"Z" THEN GOTO280 

220 FOR J= 1 TOLEN ( W$ (. R ) ) 

230 I FLTR$=M I D$ ( U$ (R), J , 1 ) THENPR I NTLEFT$ 
< AT* , 1 9 ) SPC < 1 1 + J*2 ) ; LTR$ ■’ FL= 1 
248 IFLTR*=MID$<W$<R), J, 1)THENC$=LEFT$<C 
$ , < J- 1 > ) +LTR$+M I D$ 'X$ , ( J+ 1 ) > 

250 NEXTJ 

260 I FC*=W$ ( R ) THENGOTO600 

270 I FFL= 1 THENFL=0 : G0T0283 

230 PR I NTLEFT* < RT$ , 22 ) SPC < 4+LC ) LTR* 

290 LC=LC+1 

300 I FLCO 1 THENGGTO320 

310 PR I NTLEFT* < RT$ , 1 7 ) SPC <1 5 ) fl$ < 1 ) 

320 IFLC02 THENGOTO340 

330 PR I NTLEFT* < AT*, 16)SPC<16)A*<2) 

340 I FLCO3THENG0TO3S0 

350 PR I NTLEFT* ( RT* , S > SPC ( 1 7 ) A* < 3 ) 

360 IFLC04THEN GOTO380 

370 PR I NTLEFT* < RT* , 9 ) SPC ( 2 1 ) R* < 4 ) 

330 I FLCO5THENGOTO400 

390 PR I NTLEFT* CRT*, 10) SPC < 2 1 ) A* < 5 ) 

400 IFLCOSTHENGOTO420 
4 1 0 PR I NTLEFT* < RT* ,11) SPC < 2 1) fi* < 6 ) 

420 I FLCO7THENGOTO440 

438 PR I NTLEFT* < RT* ,11) SPC < 20 ) A* < 7 ) 

440 I FLCO8THENG0T 0460 

458 PR I NTLEFT* < AT* , 1 1 ) SPC < 22 ) A* < 8 ) 

460 I FLCO9THENG0T0475 

470 PR I NTLEFT* ( RT* , 1 3 ) SPC ( 20 ) fi* < 9 ) 

475 I FLC< 1 0THENGOT 0200 

480 I FLCO 10 THEN COTO660 

490 PR I NTLEFT* ( RT* , 1 3 ) SPC C 22 ) fi* < 1 0 ) 

500 GOTO200 
600 REN WIN 

6 1 0 FOR J= 1 TO50 : FOR J J= 1 T05 = P0KES0+ 1 , J* J J : 

NEXT JJ,J:P0KES0+ 1,0 

620 F0RDL= 1 T0588 ■ NEXTDL 

638 30=30+ 1 

648 NW=NW+1 

650 PR I NTCHR* ( 147): GQTO80 
668 REM -LOSE 

665 FOR J=58T0 1 STEP- 1 : FOR J J= 1 T05 : PGKESG+ 1 
, J*JJ : NEXTJJ, J : P0KES0+ 1 , 0 
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670 FORDL= 1 TO500 : NEXTDL 

675 PR I NTCHR$ < 147): PR I NTLEFT$ < AT$ , 1 0 > SF'C 

<12)" THE WORD WAS" 

680 PR I NTLEFT$ < AT$ , 1 2 ) SPC < 19-LEN <W$<R ) ) / 
2);W$<R) 

685 FORDL= 1 TO 1 000 = NEXTDL 
690 NW=NW+ 1 
695 G0T0650 

700 DATA " SCHOOL " , " TOMORROW " , " ADDRESS " , " L 
ENGTH" , "EXPERT" 

710 DATA "KETTLE", "COMPUTER", "LEGIBLE", "M 
EDICINE", "BELIEVE" 

720 DATA " MVSTERV " , " DOLF'H I H " , " FEBRUARY " , " 
BLANKET", "SPECIAL" 

730 DATA "PAVEMENT", "FRAGILE", "DIFFICULT" 
.."RHUBARB", "PENGUIN" 

740 DATA "ALPHABET", "DAFFODIL", "YACHT 1 VS 
QUARE", "THROUGH" 

750 DATA "TONGUE" , "RASPBERRY" , "CUSHION" , " 
SOLDIER", "GENIUS" 

760 DATA "SPECTRUM", "CYLINDER" , "OIL" , "DIS 
PENSER", "SCATTER" 

770 DATA" CIRCUIT", "DEFINITE", "PERCH", "CO 
NSTRUCT", "QUESTION" 

780 DATA "WEATHER" , "DISTURB” , "EXHAUST" , "M 
OVEMENT", "SEMBLANCE" 

790 DATA "BANTAM" , "OCTOBER" , "SEPTEMBER" , " 
ANNUAL", "PROPORTION" 

1008 REM SET UP CHARACTER STRINGS 

1 0 1 0 FORT= 1 T09 : A$ (1 ) =A$ < 1 ) +CHR$ <183) '■ HEX 

TT 

1 020 FORT-- 1 T08 : A$ < 2 ) =A$ < 2 ) +CHR* < 1 70 ) +CHR 
$<157 ) +CHR$ (145): NEXTT 
1 030 FORT= 1 T04 : A$ < 3 ) =A$ < 3 ) +CHR$ < 175): NEX 
TT 

1040 A$<4)=CHR$<180) 

1050 A$(5)=CHR$< 119) 

1060 A$ < 6 ) =CHR$ <18) +CHR$ < 32 ) +CHR$ < 1 7 ) +CH 
R$ < 1 57 ) +CHR$ < 32 ) +CHR$ < 1 46 ) 

1 070 A$ < 7 ) =CHR$ < 1 1 0 ) : A$ < 8 ) =CHR$ < 1 09 ) 

1080 A$<9)=CHR$< 110) : fi$< 10)=CHR$< 189) 
1090 RETURN 

10000 REM SET UP SOUNDS 
10010 30=54272 

1 0020 FORT=0TO28 : POKESO+T , 0 : NEXT 
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10040 P0KES0+5 ! 9 : REM ATTACK, --'DECRY 
10050 P0KE80+S, 240 : REM SUSTAIN/RELEAS 
10060 POKES0+24,15:REM VOLUME 
10070 POKESO+4,33 : REM WAVEFORM 
10030 RETURN 
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U ' - ’ ' ...... 

J I I I I I L 


PRESS FI TO REPLflV THE TUNE 

o 

F7 TO START A NEW 


Here is your chance to become the next Stevie Wonder, Mozart or 
maybe just play ‘Happy Birthday’ to your parents on your 
computer. 

You’ll be able to type your own tunes into the computer’s memory 
and have them played back to you. 

Howto play 

The screen will show an organ keyboard, with each key labelled 
with the letter you must press to get that particular note. Everytime 
you press a key, a coloured star will move to that organ key on the 
screen , and you will get a musical note from your computer. 

When you have finished your tune and wish to replay, press 
Function key 1 and the computer will play back the whole tune for 
you. 
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Instructions on how to clear the memory, and write a new tune, will 
appear on the screen. 


Program 


10 rem 

20 REM # * 

22 REM * ORGRN % 

24 REM # # 

25 REM ##****$$##**m#*$**#* 

27 P0KE53281 , 1 : PQKE53280, 6 

30 RT$=CHR$( 17) ■ F0RT=1T0S : RT$=RT*-+RT$ : NE 
XTT : AT $=CHR$ (19) +FlT $ 

32 PR I NTCHR$ ( 147); CHR$ ( 1 44 ) : GOSUB 1 0000 
35 DIM HI ( 1500), L0( 1008), X( 1000), Y( 1000) 
40 C=0 : Xl=16 : Vl=19 
50 N=0= GOSUB 1008 

60 RR=PEEK(197) : IFfifl=64THENHI=0 : L0=8 : R$= 
" " : X=16 : V=19 
65 GETfl$ 

80 I FR$= " Q " THENH I =7 : L0= 1 1 9 ■ X=6 
90 IFR$="E"THENHI=8 : L0=225 : X=6 : Y=7 
1 00 I FR$= " R " THENH I =9 : L0=247 : X=6 : V= 1 1 
110 IFfi$="V"THENHI=l 1 : LQ=213 : X=6 : Y=19 
120 IFR$="U"THENHI=13 : L0=78 : X=S : V=23 
130 IFR$=" I "THENH I =14 : L0=239 : X=S : V=27 

169 IFfl$="S " THENH 1=8:10=97: X= 1 8 : V=5 

170 IFfi$="D"THENHI=9 : LO=104 : X=10 : V=9 

1 80 I Ffl$= "F" THENH I = 1 0 : L0= 1 43 : X= 1 0 : Y= 1 3 
1 98 I FR$= " G " THENH 1=11: 10=48 : X= 1 0 : V= 1 7 
200 I Ffl$= " H " THENH I = 1 2 : L0= 1 43 : X= 1 0 = V=2 1 
2101 FR*= " J " THENH I=14 : L0=24 : X= 1 0 : V=25 
220 IFfl$="K " THENH 1=15: L0=2 1 0 : X= 1 0 : V=29 
230 I Ffl$= " L " THENH I = 1 6 : L0= 1 95 : X= 1 0 : V=33 
240 I Ffl$=CHR$ (1 33 ) THENGGT03 1 8 
253 IFfl$=CHR$( 136)THENC=3 : PRINTCHRf (147) 

: GOTO40 

252 I FX 1 >7THENPR I NTLEFT* < RT$ , X 1 ) SPC (VI) " 


" : 00T0255 

253 PR I NTLEFT* ( RT$ , X 1 ) SP 
RJC32) CHR$( 146) 

255 I FX>7THENPR I NTLEFT* ( 


C(Y1)CHR$(18);CH 
RTf , X ) SPC ( V ) CHR$ 


(42) : G0T0257 

256 PR I NTLEFTf ( RT$ , X ) SPC ( V ) CHR$ ( 1 8 ) ; CHRf 
(42) CHRf ( 146) 
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257 X1=X : Vi=V 

260 POKESO+ 1 , H I : POKESO , LO 

270 C=C+1 

272 IFO1000THENC=1000 
280 HI (C)=HI : L0(C)=L0 
290 X(C)=X:V(C)=Y 
300 GOTO60 

318 PR I NTCHR* (147): GOSUB 1 800 

328 FOR -J= 1 TOC : X=X ( J ) : V= V ( J ) 

321 I FX 1 >7THEHPR I NTLEFT* < AT* , X 1 ) SPC ( Y 1 > " 
" : G0T0325 

322 PR I NTLEFT* < AT* , X 1 ) SPC ( V 1 > CHR* ( 1 8 > CH 
R*(32);CHR.*(14S) 

325 I FX>7THENPR I NTLEFT * ( AT* , X ) SPC ( V ) CHR* 
(42) : G0T0329 

326 PR I NTLEFT* ( RT* , X ) SPC ( V ) CHR* ( 1 S ) ; CHR* 
(42)iCHR*(146) 

329 X 1 =X : V 1 =V 

330 POKESO+ 1 , H I ( J ) : POKESO , LO ( J ) 

335 F0RDL=1T045 : NEXTDL 

337 X1=X : V1=V 
340 NEXTJ 
358 GOTO60 

1800 REM m THE SYMBOL " ! " IS 'SHIFT-' 
AND 'B' TOGETHER 

1002 REM THE SEQUENCE "S3 H " IS 'RVS 
ON'+'CBM RND H TOGETHER/ +' SPACE' 

1084 REM + 'CBM RND N TOGETHER'+'RVS OFF 
/ 

1006 REM 'RVS ON' IS ACHIEVED BY 'CTRL A 
HD 9 TOGETHER' 

1008 REM 'RVS OFF' IS ACHIEVED BY 'CTRL 
AND 8 TOGETHER' 

1009 PRINT" SI 

1 " 

1010 PRINT" I S3 S S3 H I S3 B S3 

i i m ! i 

1820 PRINT" I S3 E 35 B I S3 B Si 

I I El I I 

1030 PRINT" I S3 B S3 B i S3 @ E? 

I I SS I ! 

1040 PRINT" I SI B S3 a I S3 B E? 

I I £533 I ! 

1050 PRINT" I HE® 3 R 5 I S3 V B d 
I U I Bfl I I 
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I860 PRINT" ! SI H a & I a _ P a 

I - 1 BH! ! ! 

1070 PRINT" I I I I I I ! 

I I 

1080 PRINT" I I i ! I | | 

I I 

1090 PRINT" I ! ! ! I I I 


1100 PRINT" ! S I D ! F ! G ! H ! J 



1120 PR I NTLEFTS < FiT$ , 20 } SPC < 5 V PRESS FI T 
O REPLRV THE TUNE" 

1130 PRINTLEFT$<AT$,22>SPC<5> "PRESS F7 T 
O START A NEW TUNE" 

1150 RETURN 

10000 REM SET UP SOUNDS 
10010 30=54272 

1 @020 F0RT=8T02S : POKESO+T , 0 : NEXT 
10040 PQKESQ+5 > 9 : REN fiTTRCK/BECPV 
10050 POKESQ+6 .. 248 : REM SUSTA I N/RELEflSE 
10060 P0KES0+24, 15: REM VOLUME 
10070 POKESO+4,33 : REM WAVEFORM 
10098 RETURN 
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Anagram 



If you think that you are good at spelling then this game is for you. 
If you know that you are bad at spelling then this game is certainly 
for you. Well, you need the practice don’t you? A selection of let- 
ters will be scattered around in a box within the screen and the 
player will be asked to unjumble them to make a word. Not any old 
word like MAFILY will do however, when the correct word is 
FAMILY. 


How to play 

This is for one player. 

The selection of letters will not be on one line but will be mixed up 
in a small square. 


When you have decided what the correct word is you type it in and 
press RETURN. 
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Tries and correct answers will be shown on the screen but, in the 
event of a wrong answer the player will be asked to try again until 
the correct answer is given. 

If you make a mistake press DELETE and begin again, but always 
remember to use CAPITAL letters when typing in your entry. 


Programming Hints 

More difficult words can be used by changing the data statements 
in lines 440 to 470. If you increase the number of words, change the 
20 in lines 40, 70 and 100 to match the total number of words. 


Program 

10 rem wmmmmw-mm 

70 PPM * * 

22 REM % ANAGRAM % 

24 REM * * 

25 REM 

30 AT$=CHR$< 17) : F0RT=1T06 : AT$=AT$+AT$ : HE 
XTT : AT $=CHR$ (19) +AT $ 

35 GOSUB 10000 
40 BIMW$<20) : DIMM < 6,6) 

45 POKE53280, 13- P0KE53281 , 14 : PRIHTCHR$< 1 
44) 

50 SC=8 : TR=9 : PRINTCHR$a47) 

60 P0KES0+ 1,40: F0RBL= 1 TO 1 00 = NEXTBL IPOKES 

0 + 1,0 

70 FORJ=1TO20 
80 REABW$< J) 

90 NEXTJ 
92 G0T0325 

100 R= I NT ( PHD <1 ) *20 ) + 1 
102 F0RJ=7T013 

1 04 PR I NTLEFT$ < ATS , J ) SPC (11).:" 

il 

106 NEXTJ 

110 PRINTCHR$<144) :F0RJ=1T08 
1 20 I FM I m < ]>it < R ) , J , 1) = 1 " " THENG0T0 1 80 
125 IFMID$CW$<R),J,1)=" "THENGOTO180 
130 P1=INTCRND<1)#6)+1 
140 P2=INT<RND<1)#6)+1 
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150 IFM(P1,P2)=1TH£HGOTO130 
160 M(P1 , P2) = l 

170 PRINTLEFT* (RTS , P1+6)SPC(P2+14)I1ID*(W 
S(R),J,1) 

175 POKESO+l , 20 : FORBL=1TO40 : NEXTDL = POKES 
0+1.. 0 
180 HEXTJ 
185 PRIHTCHRS(5) 

190 PRINTLEFT*(RT*,16)SPC(9)" 14HRT IS TH 
E WORD? " 

200 F0RJ=1T06 
210 F0RK=1T06 
220 M<. 1,10=0 
230 NEXTK 
240 HEXTJ 

250 PR I HTLEFTS < RTS , 18) SPC (12)01 NPUTfiS 
252 IFRS>"Z" THEHPR I HTLEFTS ( RTS , 4 ) SPC ( 1 0 
) " USE CRPITRL PLERSE" : GOTO250 
256 I FLEN ( R$ ) <8THEHR$=RS+ " ":G0T0256 
260 PR I HTLEFTS (RTS, 16)SPC(6)" 

ll 

265 PR I HTLEFTS ( RTS ,18) SPC < 6 ) " 

II 

270 TR=TR+1 

280 IFRS* "QUIT "THENGOTO420 

290 I FLEFT S ( RS , LEN < 14$ ( R ) ) ) OWS ( R ) THEN GO 

TO390 

300 FORTT® 1 TO 1 0 = FORSS= 1 0TO 1 00STEP5 = POKES 
0+ 1 , SS : NEXTSS , TT : POKESO+ 1 , 0 
3 1 0 PR I HTLEFTS ( RTS , 1 6 ) SPC (1 3 ) " CORRECT ! " 
328 SC=SC+1 

325 PR I NTCHRS <1 44 ) : PR I HTLEFTS ( RTS , 1 ) SPC < 
10) "fl N R G R R M S " 

330 PRINTCHR*(5) : PR I NTLEFT S ( RTS , 3 ) SPC ( 4 ) 
"TRIES: ";TR 

340 PR I HTLEFTS ( RTS , 3 ) SPC ( 24 ) " SCORE = " ; SC 
342 FORBL= 1 TO580 : NEXTDL 
350 F0RJ=6T012 

360 PR I NTLEFT* ( RTS , J ) SPC <1 1 ) j " 

ll 

370 HEXTJ 
380 GOTO 100 

390 FORTT= 1 T06 : FORSS= 1 00TO 1 0STEP-2 = POKES 

0+ 1 , SS : NEXTSS , TT > POKESO+ 1 , 0 

400 PR I NTLEFT* < RTS , 1 6 ) SPC (14) " TRY ROR I N ! 
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405 FORDL= 1 TO 1 0O0 : NEXTDL 
410 GOTO 190 

420 PRINTLEFT$<AT$,16)SPC<7:s"THE WORD W 
AS ’SW*<R> 

425 FORBL=1TO380 : NEXTDL 
428 PRINTLEFT$<RT$, 16)SPC<6>" 

I! 

430 G0T0330 

440 DATA "POND'S "WOOD'S "MOUSE'S "TIGER'S " 
DIGIT" 

450 DATA" IDEA" , "ANAGRAM" , "MOTH" , "PARTY" , 
"OCEAN" 

460 DATA "PENNY" , "RABBIT" , "PEAR" , "TOAD" , " 
GUESS" 

470 DATA "BINARY'S "PUPIL'S "BASIC'S "VIDEO" 
, "RECORD" 

10000 REM SET UP SOUNDS 
1S010 30=54272 

10020 FORT=0TO23 : POKESO+T , 0 : NEXT 
10040 P0KES0+5,9 : REM ATTACK/DECAY 
10050 POKESO+6,240:REM SUSTAIN/RELEASE 
18060 POKESQ+24; 15 : REM VOLUME 
10070 POKESO+4,17 : REM WAVEFORM 
10080 RETURN 
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Compass 



This game, along with Morse Code and Constellation games’ could 
save your life one day. You might wander off in a desert, a jungle 
or an ice field and you will thank your lucky stars that you once had 
a computer. 

The Compass game will help you to identify North from South and 
even North East from South West. 


How to play 

Your friendly computer will draw you a map and show you the 
eight major compass settings North, North East, East, South East, 
South, South West, West and North West. 

The computer will then spin its own little compass setting, point the 
arrow in a certain direction and ask you to decide where you are 
going. 
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Wrong answers mean that you will be asked again and again if 
necessary. 

Random selection means that you may find yourself pointed in the 
same direction twice running but at least you should know where 
you are. 


Programming Notes 

This program uses the same map routine as ‘towns’ and ‘counties’. 
If you are typing in one of these as well you can save yourself some 
work if you just type in the lines that are different with your first 
program still in the computer. Don’t forget to save your first pro- 
gram on a tape. 


Program 

10 REM ************* 

20 REM * * 

22 REM * COMPASS * 

24 REM * # 

25 REM ************* 

30 AT*=CHR* (17): F0RT= 1 T06 : AT*=AT*+AT$ : HE 
XTT : AT *=CHR* (19) +AT $ 

35 POKE53280 , 6 : P0KE5328 1, 15 : PRI NTCHR* ( 1 4 
4) 

40 TR=0 ; SC=0 

100 GOSUB9000 : GOSUB8000 

110 F0RR=1T03 

1 20 PR I NTLEFT* ( AT* , X ( R ) ) SRC ( V ( R ) ) A* ( P. ) 

1 25 PR I NTLEFT* ( AT* , 5 ) SPC ( 30- ( LEN ( Ii I * ( R ) ) 
/2))BI*(R) 

130 F0RBL= 1 TO 1 000 : NEXTBL 
140 GOSUB7000 
150 HEXTR 

155 R=T NT ( RNB ( 1 ) #8 ) + 1 

160 PR I NTLEFT * ( AT* , 4 ) SPC ( 20 ) " SCORE " SC 

1 65 PR I NTLEFT* ( AT* .. 4 ) SPC ( 39 ) " TR I ES " TR. 

1 78 PR I NTLEFT* ( AT* , X ( R ) ) SPC ( V ( R ) ) A* ( R ) 

1 75 PR I NTLEFT* ( AT* , 1 8 ) SPC ( 23 ) " 

II 

180 PR I NTLEFT* ( AT* , 1 8 ) SPC ( 23 ) " WH I CH DIRE 
CTION" 
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1 85 PR I NTLEFT* < AT* , 1 9 ) SPC < 23 ) " 

It 

190 PRINTLEFT*<AT*,19)SPC<23)" IS THI 
S ? " 

1 92 PR I NTLEFT* < FIT* , 2 1 ) SPC < 23 ) ; " 

II 

1 95 PR I NTLEFT* < AT* , 2 1 ) SPC < 23 ) ; : I NPUT ANS* 

200 TR=TR+1 : IFANS*=DI*<R)THEN300 

2 1 8 FORW=4T0 1 STEP- 1 : FORQ= 1 T05 = FORQQ= 1 0TO 

1STEP-1 : POKESO+1 , W#Q#QQ 

215 NEXTQQ , Q , W : POKESO+ 1 > 0 

220 PR I NTLEFT * < RT* > 2 1 ) SPC < 23 ) j " 

tl 

238 PR I NTLEFT* CRT* , 21 ) SPC (23) ; "NO ! TRY 
AGAIN " 

240 FORIiL= 1 TO500 : NEXTDL 
250 GOTO 160 

300 PRINTLEFT*<AT*j21)SPC<23); " 

II 

310 PR I NTLEFT* < RT$ , 2 1 ) SPC < 23 ) ; " CORREC 
T! 

3 1 5 FORW= 1 TO 1 0 : FQRQ= 1 T04 : FORQQ= 1 T06 : POKE 

SO+ 1 , U*Q*QQ : NEXTQQ , Q , W ; POKESO+ 1 , 0 

320 FORDL® 1TQ1000 : NEXTDL 

330 GOSUB7000 

340 SC=SC+1 

350 GOTO 155 

7000 REM CLEAR SCREEN 

7010 F0RT=5T022 : PR I NTLEFT* < AT*, T)SPC<20) 

II II 

7020 NEXTT 

7030 RETURN 

8000 REM SET UP ARROWS 

80 1 0 RERDX : I FX=0THENGOTOS030 

8020 A1*=A1*+CHR*<X) :GOTO8010 

8830 A2*=CHR* < 1 80 ) +CHR* < 1 70 ) +CHR* < 1 7 ) +CH 

R* <157 ) +CHR* (157 ) 

8040 R2*=fl2*+R2*+fl2*+fl2* 

8050 R3*=CHR* < 32 ) +CHR* <110) +CHR* < 1 45 ) +CH 
R* (157) +CHR* <157) +CHR* <110) 

8060 A3*«A3*+A3*+A3*+A3* 

8070 R4*-CHR*<32)+CHR*< 109)+CHR$< 17)+CHR 
* <1 57 ) +CHR* < 1 57 ) +CHR* < 1 09 ) 

8088 R4*=fl4*+R4*+R4*+fl4* 

8098 fi* < 1 ) =CHR* < 1 1 0 ) +CHR* <189) +CHR* < 1 7 ) + 
CHR* <157) +CHR* <157) +R2* 
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8100 m ( 2 ) =R3* +CHR$ (112 ) 

8110 R$ ( 3 ) =R 1 $+CHR$ (lie ) +CHR$ ( 1 45 ) +CHR$ ( 
157)+CHR$( 189) 

8120 fi$<4)=R4$+CHR$(186) 

8139 fl$ ( 5 ) =R2$+CHR$ ( 1 09 ) +CHR$ ( 1 1 0 > 

8 1 40 fl$ ( 6 ) =CHR$ ( 1 08 > +M I D$ ( R3$ , 2 ) 

8150 fi$ ( 7 ) =CHR$ (110) +CHR$ (17) +CHR* ( 1 57 ) + 
CHR$ ( 1 09 ) +CHR$ ( 1 45 ) +fi 1 $ 

8 1 60 flf ( 8 ) =CHR$ ( 207 ) +M I D$ ( R4S , 2 ) 

8170 F0RT=1T08 : RERDX : X(T)=X = NEXTT 
8 1 80 FQRT= 1 T08 = RERDV = V ( T ) = V = NEXTT 
8 1 90 FORT= 1 T08 : RERDV$ : DI$(T)=V$ : NEXTT 
8200 80=54272 

82 1 0 FGRT=0TO28 : POKESO+T , 0 : NEXTT 

8220 POKESO+5, 9 : P0KES0+6, 240 : POKESQ+24, 1 

5 : POKESO+4 , 33 

8230 RETURN 

9008 REN DRAW MRP 

9005 PRINTCHR$( 147) 

9010 FORT= 1 024TO 1 944STEP48 
9015 F0RTT=3T018 
9020 RERDX 

9030 POKET+TT, X : P0KE(T+TT+54272) , 5 
9040 NEXTTT.' T 
9050 RETURN 

10000 DRTR 32, 32, 32 >32, 32, 32, 32, 32, 252, 9 

8.98.32.32.32.32. 32. 32.32. 32 

10010 DRTR32, 32,32, 32, 32, 254, 32,32, 160, 1 

60. 236.32.32. 32.32. 32. 32. 32. 32 

10020 DRTR32, 32,32, 32, 32, 126, 32, 254, 160, 

236 . 32 . 32 . 32 . 32 . 32 . 32 . 32 . 32 . 32 

10030 DRTR32,32,32,32,58, 118, 108, 168, 160 
, 169,98, 160, 160,252,32,32,32,32,32 
1 0840 DRTR32 ,32,32, 32 , 58,124,188,1 68 , 1 S3 
, 160, 160, 168, 160, 1 2S-, 32 , 32 , 32 ,32,32 
1 0050 DRTR32 , 32 ,32,32, 46 , 32 ,168,1 60 , 1 63 , 

168.168.160.160. 32 .32.32. 32 . 32 . 32 

1 0068 DRTR32 , 32,32, 32 , 32 , 108,188,160,1 68 
, 163,160,160,126,32,32,32,32,32,32 
10078 DRTR32, 32, 32, 32, 32, 32, 245, 160, 163, 

160.160. 128. 126.32.32.32.32.32.32 
10088 BRTR32, 32, 32,32, 32, 126,244,118, 168 
, 160,160, 163,252,32,32,32,32,32,32 

1 0090 DRTR32 , 32 , 32 , 32 , 32 , 32 , 1 26 , 254 , 1 63 , 

160. 163. 163. 160.97.32.32.32.32.32 
10103 DRTR32 , 32 , 32,32,32 , 32 , 32 , 160, 160, 1 
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60 . 1 60 . 1 60 . 1 60 . 252 . 32 . 32 . 32 . 32 . 32 
10110 BRTR32 , 32 , 32 , 32 , 32 , 32 , 32,1 26 ,119,2 

54. 160. 160. 160. 160. 121.32.32.32.32 
10120 DRTR32 , 32 , 32 ,32,32,32,32 , 255 ,32,11 

8. 160. 160. 168. 169. 160. 123.32.32. 32 

1 0 1 30 BATR32 , 32 , 32 , 32 , 32 , 32 ,32,32, 32 , 32 , 

254. 160. 160. 160. 160. 160.32.32.32 

10140 BRTR32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 

1 60 . 1 60 . 1 60 . 1 60 . 1 60 . 223 . 32 . 32 . 32 

18150 BATR32 , 32 , 32 , 32 , 32 , 32 , 32 , 1 26 , 248 , 2 

54 . 1 63 . 1 68 . 1 60 . 1 60 . 1 68 . 1 68 . 223 . 32 . 32 

1 8 1 68 BRTR32 , 32 , 32 , 32 , 32 ,32,32 , 226,1 60 , 1 

60. 168. 160. 160. 168. 163. 168.252.98. 123 

1 8 1 70 DRTR32 , 32 , 32 , 32 , 32 , 32 , 32 ,32,1 68 , 1 6 
0, 168, 168, 168, 168, 160, 163, 168, 160, 160 
1 0 1 88 BRTR32 , 32 , 32 , 32 , 32 ,32,188,254,1 68 , 
168, 160, 168, 168, 168, 160, 168, 163, 163,236 
1 0 1 90 DRTR32 , 32 , 32 , 32 , 32 ,124, 236 ,251,1 68 
, 168, 160, 160, 163, 168, 160, 168, 160, 160,32 
1 0208 BRTR32 , 32 ,32,32,32, 32 , 32 ,32,124,12 

8. 168. 160. 160. 160. 160. 192. 192.98. 123 
10210 BATA32, 32732, 32 , 32 , 32 , 32 , 254 , 247 , 2 
54, 160, 168, 168, 160, 160, 168, 163, 163, 126 

1 3220 BRTR32 , 32 , 32 , 32 , 32 , 32 , 1 08 , 1 68 ,160 , 

160. 160. 168. 160. 120.239. 128.226.32.32 

1 0230 BRTR32 ,32,32,32,46,254,239, 25 1 , 236 

nn on oo on oo OO OO oo CO 
.« Oc j Oi J y 3 > Oc . } OcL .1 Od J > Oc > Oc. ot 

18240 BRTR 183, 183, 183, 183, 17,157, 157, 157 

,157,175,175,175,175,0 

18250 DRTfi 10,14,12,11,11,15,12,10' 

18260 BRTR 29,28,29,28,29,27,27,27 
1 0270 BRTR " NORTH " , ” NORTH-EAST " , " ERST " , " S 


OUTH-ERST" 

1 8288 BRTR " SOUTH " , " SOUTH-WEST " , " WEST " , " N 
ORTH-WEST" 
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Submarine 



You are a destroyer captain alone in a hostile sea surrounded by a 
pack of submarines which are travelling secretly to a rendezvous. 
The submarines cannot break radio silence or send for help and 
must not attack you for fear of giving their position away but you 
can sink as many of them as you can - with as few depth charges as 
possible. 


How to play 

On the screen will be shown a board divided into 100 squares. The 
submarine is hiding in one of those squares. The bottom (horizon- 
tal) line is called X and the upright (perpendicular) line is called Y. 

Each line of boxes goes from 0 to 9 and you have to give the box 
numbers to the computer when it asks for your entry. You will be 
asked to type in a number for the X and Y lines. If you think that 
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the submarine is in a box 8 across and 5 high then press 8 and 5 
when the X and Y positions are asked for. 

Remember there is no need to press RETURN after each number. 

After the second number is entered you will hear the ‘crump’ of an 
exploding depth charge. If you make a direct hit first time you will 
hear a ‘whooping’ sound and the screen will show you how many 
tries you took to sink the submarine. 

If however you miss, the computer will tell you if your shot was 
North, South, East or West of the target and you must then plan 
your next shot. 

As soon as the submarine is sunk your computer will search and 
detect another target. 

Special Note Expert captains should be able to detect and sink the 
enemy within four moves. 


Program 

10 rem mmmmmtmmww 
20 rem * * 

22 REM * SUBMARINE * 

24 REM * % 

25 REM 

30 RT*=CHR*< 17) : F0RT=1T06 : RT*=RT*+RT* : HE 
XT! : RT *=CHR* (19) +RT * 

32 PR I NTCHR* <147) ; CHR* < 1 44) •' COSUB 1 0000 
35 PQKE53280.' 6 : PQKE53281 .■ 1 
40 P0KES0+1 , 12 : F0RBL=TTO300 = NEXTBL = POKES 
0+1,0 

50 PR I NTLEFT * < RT* , 1 ) SPC < 6 ) " SHOOTS : 0" 

60 PR I NTLEFT * < FIT* , 1 ) SPC < 23 ) " H ITS : 0" 

70 PR I NTLEFT * < RT* , 2 ) SPC < 1 1 ) " V " 

80 PR I NTLEFT* <RT*, 15)SPC<25) "X" 

90 FORJ=10TO19 

1 00 PR I NTLEFT* < RT* , 3 ) SPC < J+3 ) " . " 

110 PR I NTLEFT* <RT*, 1 4) SPC < J+3) " . " 

120 PR I NTLEFT* <RT$, 15)SPC<J+3)MID*<STR*< 
J-10) ,2,1) 

130 NEXTJ 
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146 FQRJ=3TQ14 

150 PR I NTLEFT $ < AT# , J > SPC ( 1 2 > " . " 

160 PR I NTLEFT # < AT# , J ) SPC ( 23 > " . " 

170 NEXTJ 
180 F0RJ=4TQ13 

190 PR I NTLEFT# < AT# , J ) SPC < 1 1) M I B$ < STR# < 1 3 
-J> , 2, 1 > 

200 SH=0 : HT=0 
205 RK=0:RV=0 
210 NEXTJ 

220 SV=INT<RND<1)#10) 

230 SX=INT<RND<1)#10) 

232 PRINTLEFT#<RT$, 17)SPC<9>; " 

II • 

235 PR I NTLEFT# < AT#, 17)SPC<9); "VOUR SHOT 
(X ' V) ? " « 

237 GETRX#:lFfiX#<"0" OR RX#>"9" THEN237 
240 PRINTRX#", " J :flX*VRL<RX#) 

242 GETRV#:IFRV#<"0" OR RX#>"9" THEN242 

244 PRINTRV# : R¥=VRL(RY#) 

245 PR I NTLEFT# (AT#, 13-RV)SPC<13+flX)"#" 
260 FOR J* 1 80TO30STEP- 1 : POKESO+ 1 , 1 0+ J : FOR 
BL=1TO10 : NEXTDL, J : POKESO+l , 0 

270 POKESO+4 ,129: FOR J* 1 TO30 : POKESO+ 1 , J : F 

ORDL= 1 TO 1 0 : NEXTDL 

275 NEXTJ : POKESO+ 1 , 0 : POKESO+4 , 1 7 

290 PR I NTLEFT# < RT$ , 20 > SPC < 7 ) " 

ll 

295 PR I NTLEFT# < RT$ , 2 1 > SPC < 7 ) " 

II 

300 PR I NTLEFT# < RT# , 20 ) SPC < 7 5 ; 

310 IFRX=SX RND fiV=SV THENGOTO420 
328 PR I NT "VOUR SHOT HRS "j 
338 IF RV<SV THEHPRINT"SOUTH 
340 IFRV>SV THENPRINT"NORTH 
358 I FRX<SXTHENPR I NT " WEST " ; 

360 I FRX>SXTHENPR I NT " ERST 

370 PR I NTLEFT # < AT# , 2 1 ) SPC ( 7 > " OF THE SUBM 

ARINE, CAPTAIN. " 

380 SH=SH+1 

390 PR I NTLEFT# < RT# , 1 ) SPC <1 3 > SH ; CHR# ( 1 57 ) 

• ll ll 

400 FORDL=1TO200: NEXTDL 
410 G0T0232 
420 FORJ=1TO40 

425 PR I NTLEFT # ( AT# , 1 3-RV ) SPC < 1 3+RX ) " " 
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430 PQKESO+ 1 , J : P0KES0+8, 109-J 

433 PR I NTLEFT* < AT* , 1 3-A V ) SPC < 1 3+AX ) i CHR* 

<113) 

437 P0KES0+8 .• J : POKESO+ 1 .. 1 00- J 

440 NEXT J : POKESO+ 1,0: POKESO+8 , 6 

450 PR I NTLEFT * < AT* , 20 ) SPC < 1 2 > " A DIRECT H 

IT! " 

452 FORDL=1TO1800 : NEXTBL 

453 F0RJ=4T013 

454 PR I NTLEFT* < FIT* , J ) SPC <1 2 ) J " . 

II 

456 NEXTJ 
460 HT=HT+1 

470 PR I NTLEFT* < AT* , 1 ) SPC < 29 ) HI CHR* < i 57 ) 

• II II 

472 I FHT = 1 0THENGOTO540 

480 FORDL=1TO300 : NEXTDL 

490 PR I NTLEFT* < AT* , 20 ) SPC < 2 ) " ANOTHER SUB 

MARINE HAS BEEN DETECTED!" 

510 GOTO220 
540 FORJ=l TO 10 
550 : 

560 NEXTJ 

562 PRINTCHR*<147) 

578 PR I NTLEFT* < AT*, 8) SPC < 1 1 ) i "CONGRATULA 
TIONS! " 

580 PR I NTLEFT* < AT*, 10)SPC<9) 1 "TEN SUBMAR 
INES SUNK!" 

590 PR I NTLEFT* < AT* , 1 3 ) SPC <1 2 > ; " VOU HAVE 
BEEN " 

600 PR I NTLEFT* < AT* ,14) SPC < 9 ) " PROMOTED T 
0 ADMIRAL! " 

10000 REM SET UP SOUNDS 
10010 80=54272 

10020 FORT=0TQ28 : POKESO+T, 0 : NEXT 

10040 POKESO+5,9 : POKESO+ 1 2 , 9 : REM ATTAC 

K/DECAV 

10050 POKESO+6 , 240 : POKESO+ 1 3 > 240 : REM SUS 
TAIN/RELEASE 

10060 P0KES0+24, 15 : REM VOLUME 

10070 P0KES0+4, 17 : POKESO+ 11, 1 29 : REM WAV 

EFORM 

10080 RETURN 
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CORRECT ! 


This is a game to see how sharp your eyesight is and how quick you 
are at spelling words which are hidden in the screen. 


The computer will put up a selection of letters all over the screen 
and, hidden amongst this alphabet spaghetti will be certain words 
which you will have to spot and spell out to your computer. 


How to play 

When you find a word on the screen you type it in. You then press 
the RETURN key and, if you have correctly identified and spelled 
out the word, it will be picked out, in green, on your screen. 

The score board will show your number of tries and the number of 
words you have correctly spotted. 
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When you cannot find any more words you simply type in the word 
QUIT. 


Your computer will then show, in blue, all the words. 


Y our score will be shown on the screen . 


Programming Hints 

If the selection of words is too simple or difficult you can change 
the data in lines 500 to 530. Make sure that all the words you use 
have exactly 7 letters. 


Program 


10 REM ********************* 

20 REM * * 

22 REM * WORD SEARCH * 

24 REM * * 

25 rem wwmmmmmmwm* 

30 AT* =CHR$ a 7 ) : F0RT= 1 T06 : RT$=RT$+RT# : NE 
XTT : RT $=CHR$ (19) +flT $ 

32 PR I NTCHR* (147 ) ; CHR* ( 1 50 ) 

35 POKE53280 , 0 : P0KE532S 1 , Q 
40 DIMM (20) 

47 DIMBC17) 

50 D I MW* (20) 

52 DIMC$(20) 

55 SC=0 •' TR=0 
60 FORJ=1TO20 
70 RERDW$(..T) 

80 NEXT J 

90 PRINTLEFT$(fiT$, 3)SPC(4) .; 

100 F0RK= 1 TO 16 

185 PR I HTLEFT* < RTS , 3+K ) SPC ( 4 ) .; 

110 R1=IHT(RND(1 )*20)+l 
115 IFM(R1 )=1THENGQT01 10 
117 M(R1 )=1 

119 CS(K)=W$ (Ri ) 

120 R2= I NT ( RHD ( 1 ) *20 ) + 1 
125 B(K)=R2-1 

130 F0RL=1T032 

140 IFL=R2THENPRIMTC$(K) ; :L=L+7 



1 34 Wordsearch 


1 50 LT= I NT C RHD Cl ) *26 ) +65 
160 PRIHTCHR*CLT); 

170 NEXTL 
180 PRINT 
190 NEXTK 

1 95 PR I HTLEFT* < AT* , 2 1 ) 8PC (1 1 ) " 

!l 

1 97 PR I HTLEFT* C AT* , 2 1 ) SPC C 11); 

200 PRIHTCHR*C5) ; : IHPUT"VOUR WORD " ; A* 

202 IF A*="QUIT"THEN GOTO480 

204 IFA*0'A"AHD R*> " 2 " THENPR I HTLEFT * C AT* 
,20) SPC (4) "USE CAPITALS, PLEASE" : GOTO 195 

205 TR=TR+1 

267 PR I HTLEFT* C AT* , 2 1 ) SPC (1 1 > j " 

ll 

210 FGRJ=1TQ1S 
220 IFA*=C*CJ)THEHGOTO270 
230 HEXTJ 
248 : 

250 PR I HTLEFT* CAT*, 23) SPC C 16) "WRONG ! " 

255 FORDL=1TO1009 : HEXTDL 
257 PRIHTLEFT*CAT*, 23)SPCC IS) " 

260 GOTO300 
270 : 

275' PR I NT CHR* C 38 ) : PR I HTLEFT * C AT* , .J +3 ) SPC 
CBCJ)+4);C*CJ) 

280 PR I HTCHR* C 5 ) : PR I HTLEFT * C AT* , 23 ) SPC C 1 
1 ) "CORRECT ! " 

282 C* C J ) = " " : FORDL= 1 TO 1 000 : NEXTHL 
285 PR I HTCHR* < 5 ) = PR I HTLEFT* CAT*, 23 ) SPC C 1 
1 ) " 

298 SC=SC+1 

300 PR I HTLEFT* ( AT* , 1 ) SPC < 7 ) " TR I ES : " ; TR 
310 PR I HTLEFT* C AT* , 1 ) SPC (23)" WORDS : " j SC 
320 IFSC016 THEHG0T0195 
339 END 

483 F0RJ=1T016 
485 PR I HTCHR* C 154) 

4 1 0. PR I HTLEFT* CAT*, J+3 ) SPC C B C J ) +4 ) j C* C J ) 
428 HEXTJ 
430 GOTO330 

500 DATA "PROMISE" , "SPECIAL" , "BLANKET" , "F 
RAGILE", "THROUGH" 

510 DAT A " ADDRESS "/'CEILING"," AMATEUR " , " M 
VSTERV”, "LEGIBLE" 
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520 DATA "BEL I EVE" , "STATION" , "RHUBARB" , "B 
I8SECT"; "SAVIOUR" 

538 BATA "ALCOHOL" , "CUSHION" , "SOLBIER" , "C 
ABARET", "AQUATIC" 
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Noughts and Crosses 



No, it’s not that same old boring game that you play when it’s rain- 
ing outside and there is nothing else to do. 

With our noughts and crosses you have to solve a problem before 
you can make your mark on your computer’s board. You will have 
to decide if you can answer the question before you choose your 
box. 


Howto play 

The computer will ask for the players names which you type in and 
enter by pressing the RETURN key. 

The computer will then present you with a board and in each of the 
nine squares you will find a maths sum to solve. 
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First choose the box you want and RETURN the number. 

Now you can type in your answer and see if you get your nought or 
cross for the correct answer. 

Your opponent must follow the same steps. 

If either player gives a wrong answer the computer moves to the 
opposing player’s turn. 

The game progresses until someone gets a winning line at which 
point you can press caps shift and space together, then RUN to 
play again. 

If no one can complete a winning line then the game can proceed 
until all the boxes are completed and the player with the highest 
number of noughts or crosses will be the winner. 


Programming Note 


You can make the sums easier by reducing the numbers in line 200 
or more difficult by typing in a larger number. 


Program 


10 REM 

20 REM * * 

22 REM * NOUGHTS $< CROSSES * 

24 REM * * 

25 rem 

30 AT$=CHR$ <17): F0RT= 1 TOS : RT$= AT* +AT$ : NE 
NTT : AT *=CHR* <19) +FlT $ 

32 PR I NTCHR* < 1 4? ) ; CHR* < 144): QOSUB 1 0800 
35 POKE532S0 , 9 : P0KE5328 1 , 9 
48 BIMN<18) 

42 DIMP$<2) 

44 DIMHO) 

50 PRINTLEFT$<AT$,10)SPC<2)J"WHRT ARE TH 
E PLAYERS NAMES?" 

60 INPUT "PLAYER ONE: ";P$<1) 

70 INPUT "PLAYER TWO-’ ";P$<2) 

80 PRINTCHR*< 147) 
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110 

F0RJ=2T019 


120 

PR I NTLEFT* < AT* , J ) SPC (1 1 ) ; 

CHR*Q13) 

130 

PR I NTLEFT* < AT* , J ) SPC ( 23 ) ; 

CHR*(113) 

149 

NEXTJ 


150 

F0RJ=2T031 


160 

PR I NTLEFT* < AT* .. 7 ) SPC ( J ) ; C 

HR* a 13) 

170 

PR I NTLEFT* < AT* .. 1 4 ) SPC < J 5 ; 

CHR*<1135 

130 

NEXTJ 


190 

F0RJ=1T018 


200 

N < J) = I NT < RND < 1 ) *900 > + 100 


210 

NEXTJ 


228 

C=1 


230 

F0RJ=4 TO 26STEP1 1 


240 

F0RK=2T0 1 6STEP7 


250 

PR I NTLEFT* < AT* .. K ) SPC < J ) ; N 

(C) 

260 

C=C+i 


270 

PR I NTLEFT* < AT* , K+ 1 > SPC ( J > 

JN<C5 

280 

C=C+1 


290 

PR I NTLEFT* C AT* K ) SPC < J+4 > 

• „ + u 

300 

PR I NTLEFT* < AT* , K+3 ) SPC < J- 

25; "SQUARE" 

I NT (C/2) 


310 

NEXTK 


320 

NEXTJ 



324 F0RN-1T02 

339 PR I NTLEFT* < AT* , 2 1) SPC < 8 > P* C. N ) ; " , WH I 
CH HUMBER SQUARE?" 

332 PR I NTLEFT* < AT* , 22 ) SPC < 0 5 " 

ll 

335 PR I NTLEFT* < AT* , 22 5 SPC < 0 5 ; 

340 IHPUTSQ 

34 1 I FSQ< 1 ORSQ>9THENGOTO330 

342 PRINTLEFT*<AT*, 21 )SPC<05" SQUARE "SQ" 

II 

345 PR I NTLEFT* < AT* , 22 5 SPC £ 0 5 " 

II 

347 PR I NTLEFT * < A T* , 22 5 SPC ( 9 ) 

358 INPUT "WHAT IS THE ANSWER? "JANS 

360 I FfiNS=N < SQ*2 5 +N ( SQ*2- 1 > THENGOTO420 

370 POKESO+ 1.20: FORBL= 1 TO 1 00 : NEXTDL '• POKE 

SO+1,0 

400 U.U T 0 62 0 

420 H<SQ)=1 

422 POKESO+ 1 . 30 = FORBL=1TO50 = NEXTDL : POKES 
Q+ 1 . 0 

430 IFSQ>0ANDSQ<4THENW=2 : V=SQ*7-5 
440 I FSQ>3 ANDSQ<7THENW= 1 3 : V= < SQ-3 ) *7-5 
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460 FORJ=0TQ3 
470 PR I NTLEFT$ ( RT$ , J+V > SPC <W); n 
480 NEXTJ 

490 I FM=2THENG0T 0563 
500 PRINTLEFT$<AT$,V+ 

**i j M gjj jjjjj H 

5 1 0 ’ PR I NTLEFT* CRTS, V+ 1 > SPC ( W+3 ) ; 


:24 : V=<SQ-6)3! 

1 7-5 

iPC<W>; " 

ii 

;PC:a-.H-3) ; CriRi! 

>(156 

:PC<W+3>; " i 

M 

:PC<W+3); "• 5 1 

r ;ch 


R$< 144) 

559 GOTOS20 

560 PR I NTLEFTS ( RT$ , V+0 ) SPC < W+3 ) ; CHR$ ( 5 ) ; 

"®S9" 

580 PR I HTLEFT$ < RT$ , V+ 1 ) SPC < W+3 ) ; " ® fl " 

600 PR I NTLEFT* < RT$ , V+2 ) SPC < W+3 > ; " " J CH 

R*<144> 

620 NEXTN 

630 HH=0 : FOR .J= 1T09 
643 I FH (. J ) =3THENHH= 1 
650 NEXTJ 

655 I FHM= 1 THEH0QT0324 
660 END 

10000 REM SET UP SOUNDS 
10010 30=54272 

10020 F0RT=0TO23 : POKESO+T.. 0 : NEXT 
10040 POKESO+5,9 : REM RTTRCK/DECRV 
1 0050 P0KES0+6 , 240 : REM SUSTR I N/RELERSE 
10060 P0KES0+24; 15 : REM VOLUME 
10070 POKESO+4,17 : REM WAVEFORM 
10080 RETURN 
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Towns 



Would you believe that there are people living in this country who 
don’t know where they are - on a map? Now we are sure that clever 
young readers of this book will have a good idea of where they live 
but will they know where other people live? 

To find out we have devised this game to help you find out where 
the major cities in England, Scotland and Wales are to be found. 


Howto play 

The computer will draw a map for you and give you eighteen towns 
to choose from. 

The computer will then choose, at random, a town for you to iden- 
tify. A bright dot will indicate the town in question . 
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Tries and scores are shown on the screen. 

If you are wrong it will be a case of trying until you get it right. 
After all, it pays to know where you are - doesn’t it? 


Programming Notes 

This program uses the same map drawing routine as ‘counties’ and 
‘compass’. If you are typing in all of them you will save yourself 
some work if you just type in the lines that are different with your 
first program still in the computer. Don’t forget to save your first 
program onto a tape. 


Program 


10 REM mmm-mnm*. 

20 REM * * 

22 REM * TOWNS * 

24 REM * * 

25 REM if if if if if if if if $ if if if if 

27 D I MSX < 1 8 > . S' V < 1 8 > , T WN$ < 1 8 > 

30 RT$=CHR$<17) : F0RT=1T06 : RT*=RT$+RT$ : NE 
XTT : FIT $=CHR$ (19) +RT $ 

35 POKE53280 , 6 : P0KE5328 1 .. 1 5 : PR I NTCHR$ < 1 4 
4) 

40 TR=0 : SC=0 
50 GOSUB9000 : GOSUB7800 
60 F0RT=1T013 

70 F’OKESP+21 , 0 •' PQKESP, SX<T) : POKESP+1 , SV< 
T):P0KESP+21,1 

75 PRINTLEFT$<RT*, 10)SPC(23>" 

it 

80 PR I NTLEFT* < flT$ , 1 0 ) SPC < 23 > TWN* < T ) 

90 F0RQ=1T015 : FORBL=1TO50 : NEXTBL : P0KESP+ 
21.0: FORDL=1TO50 : NEXTDL •' POKESP+21 . 1 : NEXT 
100 MEXTT 

110 R=INT<RNB< 1 )#18)+1 
120 PRINTLEFT$(RT$.. 3) SPC (28) "SCORE : "SC 
130 PR I NTLEFT $ < RT$ . 3 ) SPC< 30 ) " TR I ES : " TR 
135 PRINTLEFT$(RT$. 10)SPC<23>" 

ti 

140 PRINTLEFT$<RT$, 10)SPC<23> "WHICH TOW 
N " 
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145 PRINTLEFT$<AT$, 12>SPC<23)" 

ti 

150 PR I NTLEFT$ < RT$ .. 1 2 ) SPC < 23 ) " I S THIS ?" 
155 PRINTLEFT$CAT$, 14)SPC<23>" 

I! 

1 57 POKESP ; SX < R ) : P0KESP+ 1 , SV < R ) 

160 PRINTLEFT$<RT$, 14)SPC<23>; : INPUTRNS 
165 IFRSC<ANS$><65 ORASC<ANS$»90THENAN 
$=MID$(ANS$,2) : GOTO 165 
170 TR=TR+1 

180 I FRNS$=TWN$ < R ) THENGOTO240 
190 = 

200 GOSUB5000 : FRINTLEFT$<RT$> 12)SPC<22>" 
NO! THAT IS WRONG" 

2 1 0 FORBt= 1 TO 1 00 : POKESO+ 1 , RNB < 1 > *256 : NEX 

TBL : POKESO+1>0 

220 POKESO+ 1, 0 : GOSUE5000 

230 GOTO 120 

240 GQSUB5000:PRINTLEFT*<RT$, 12)SPC<22>" 
CORRECT ! 

250 FORR= 1 T04 : FORB= 1 T 02 : F0RC= 1 T05 = FORD= 1 
T06 : P0KESQ+ 1 , A*B#C#D : HEXTB , C , B , R 
260 SC=SC+1 

270 POKESO+1 i 0 : GOSUB5000 
280 GOTO 110 

5000 REN CLEAR PART OF THE SCREEN 

50 1 0 FORT=5T023 : PR I NTLEFT* ( AT$ , T ) SPC ( 20 ) 

" " : NEXTT: RETURN 

7800 REM SET UP SPRITE 

7010 SP=53243 

7020 POKESP+21,0 

7030 FORT=0TO63 : P0KE832+T , 0 : NEXTT 
7040 P0KE832 , 96 : P0KE835 , 240 : P0KE838 , 240 : 
P0KE841, 96 

7050 POKE2040, 13 : POKESP+21 , 1 : POKESP+16, 0 
: P0KESP+39j 0 

7060 FORT= 1 TO 1 8 = READSX ( T ) , SV C T > , TWN$ < T > : 
NEXTT 

7070 REM SET UP SOUNDS 

7880 S0=54272 : FORT=0TO28 : POKESO+T , 0 : NEXT 

T 

7090 P0KES0+5 , 9 = P0KES0+6 > 240 : POKESO+24 , 1 

5 ; P0KES0+4.. 33 

7100 RETURN 

9000 REM DRAW MAP 

9005 PRINTCHR$< 147) 

9010 FORT=1024TO1944STEP40 


+!•> CO 
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9915 FORTT=0TO18 
9820 REABX 

9030 POKET +TT , X : POKE (. T +TT +54272 ) , 5 
9040 NEXTTT,T 
9850 RETURN 

10000 DATA 32,32, 32; 32.1 32.' 32; 32; 32; 252; 9 
8; 98; 32; 32; 32; 32; 32; 32; 32; 32 
10010 DATA32;32;32;32;32;254;32;32; l^R , 1 
60 ; 236 ; 32 ; 32 ; 32 ; 32 ; 32 ; 32 ; 32 ; 32 
1 0020 DATA32 ; 32 ; 32 ; 32 , 32 ; 1 26 ; 32 ; 254 160; 
236; 32; 32; 32; 32; 32; 32; 32; 32; 32 
1 0030 D ATA32 ; 32 ; 32 ; 32 ; 58 ; 1 1 8 ,108/1 60 , 1 60 
; 160,98; 160, 160; 252, 32, 32, 32, 32; 32 
1 0040 DATA32 , 32 , 32 , 32 , 58 ..124,1 08 , 1 60 , 1 60 
; 160; 160, 160; 160; 1 26, 32, 32, 32 , 32, 32 
1 0050 DAT A32 , 32 , 32 , 32,46, 32 , 1 60 , 1 60 , 1 68 , 

160. 160. 160. 160.32.32.32.32.32.32 

1 0060 DATR32 , 32 , 32 , 32 , 32 , 1 08 ., 1 @8 , 1 68 , 1 60 
, 160, 160, 160, 126, 32, 32, 32, 32, 32, 32 
10070 BATA32, 32, 32,32,32,32, 245, 160, 160, 

1 60 . 1 60 . 1 20 . 1 26 . 32 . 32 . 32 . 32 . 32 . 32 

1 0088 DATA32 , 32 , 32 ,32,32,126,244,118,160 
, 1 60 , 168 , 1 60 , 252, 32 , 32 , 32 , 32 , 32 , 32 
1 0090 D AT A32 , 32 , 32 , 32 , 32 , 32 , 1 26 , 254 , 1 60 , 

160. 160. 160. 160.97.32.32.32.32.32 
10100 DATA32 , 32 , 32 , 32 , 32 , 32 , 32 ,160,160,1 

60. 160. 160. 160. 252. 32. 32.32. 32.32 
10110 DATA32 , 32 , 32 , 32 , 32 , 32 , 32 ,126,119,2 

54. 160. 160.160. 160. 121.32.32.32.32 
10120 DATA32 , 32 , 32 , 32 , 32 , 32 , 32 , 255 , 32 , 1 1 

8. 160. 160. 160. 160. 160. 123.32.32.32 ' 

10130 DATA32 , 32 , 32 ,32,32, 32 , 32 , 32 ,32,32, 

254. 168. 460. 160.160.160.32.32.32 

10148 DATA32 , 32 , 32 , 32,32, 32 ,32,32,32, 32 , 

160. 160. 160. 160. 160.223.32.32.32 

10150 B ATA32 , 32 , 32 , 32 , 32 , 32 , 32 , 1 26 , 248 , 2 
54, 160; 160, 160, 160; 160; 160,223,32,32 
1 0 1 68 D AT A32 , 32 , 32 , 32 , 32 , 32 , 32 , 226 , 1 68 , 1 
60, 160, 160, 160, 160, 160, 160,252,98, 123 
18170 BATA32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 160, 16 
0, 160, 160, 160, 160, 160, 160, 160, 160, 160 
10188 BATA32 , 32 , 32 ,32,32,32,1 08 , 254 ,160, 
160, 160, 160, 160, 160, 160, 160, 160, 160, 236 
10190 BATA32 ,32,32,32, 32 , 1 24 , 236 , 251,1 68 
, 160, 160, 168, 160, 160, 160, 160, 160, 160,32 
1 0280 BATA32 , 32 , 32 , 32 ,32,32,32,32,124,12 
0, 168, 168, 160, 160, 160, 192, 192,98, 123 
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10210 DATA32, 32; 32, 32,32,32.. 32, 254, 247, 
54, 160, 160; 160; 160; 160; 160; 160; 160; 126 
1 0220 DATA32 , 32 , 32 , 32 , 32 .. 32 .. 108; 1 60 1 60 
160; 160, 160, 160; 120; 239; 120 ; 226 , 32 , 32 
1 0230 DATA32 , 32 , 32 ,32,32 , 254 , 239 , 25 1 , 23 
, 32,32,99,32,32,32, 32,32,32, 32 
10240 DATA 149, 225, "BRIGHTON" 


10250 DATA108, 213, "BRISTOL" 
10260 BATA96, 211, "CARDIFF" 
10270 DATA 124, 192, "COVENTRY" 
102S0 DATA 142, 159, "HULL" 

10290 DATA 127, 157, "LEEDS" 
10300 DATA 103, 169, "LIVERPOOL" 
10310 DAT A 1 47 , 2 1 2 , " LONDON " 
19320 DATA 129, 133, "NEWCASTLE" 
10330 D AT A85 , 236 , " PLYMOUTH " 
10340 DATA 124, 85, "ABERDEEN" 
10358 DATA84, 122, "AYR" 

10360 DAT A 1 1 7 , 1 0 1 DUNDEE " 

1 0370 D AT A 1 1 1 , 1 1 2 , " ED I NBIJRGH " 
10380 DATA95, 113, "GLASGOW" 
10390 DATA 103, 78, "INVERNESS" 
10400 DATA98, 107, "STIRLING" 
10410 DATA 1 00 , 54 , " THURSO " 
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SCORE: 7 HI SCORE: 22 

PRSL.GNTPUTCEUTFZ 

UNEBHKFSEJEXURSU 

Z P Y UJ S N F U M D N Y X U U J 

♦ » 

U U U H U O U X Z p Q J B R T M 

PRDHUP'JM YRPTZYZS 
I P J Y R S J S B F N E Z O C E 

E K S U B W O Z O C H g R F G R 

TEZFGDCQXF HPMFEU 
GUFINPPJ P*N- .J E O E g X 
E U F O T C G F g F P. W B S D Y 



You may have heard of voles and owls but we’ll wager you haven’t 
been on a vowel chase before. 


You’ll find yourself in the form of a little man running around an 
alphabetic maze collecting points for each vowel (A, E, I, O, U) 
which you munch. 

But beware, there is a maze keeper out to munch you. 

How to play 

Your tiny figure can be moved up and down using keys Q and A. 
For left and right use O and P respectively. Every time you munch 
a vowel you get one point and the space is filled in by your com- 
puter with a consonant , or even another vowel . 
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If you get all the vowels from the screen before you are caught you 
get 10 bonus points. 

However, you also lose one point for every consonant you eat so 
try and stick to the maze corridors or you could wind up with a 
minus score. 

As soon as the game is completed, or you have been munched up 
by the mazekeeper, your computer will ask you if you want to play 
again in which case you press Y or N for yes or no and press 
RETURN. The only advantage you have over the maze keeper is 
that you can run through the letters, which will cost you minus 
points, but the maze keeper must keep to the aisles. 

If the maze keeper gets you and the game ends the screen will light 
up all the vowels you have missed. 


Program 


10 rem mmmwwmmnMw* 

20 REM * * 

22 REM * VOWEL CHASE * 

24 REM % * 

25 REM 

27 P0KE52 ,48: P0KE36 , 48 : CLR 

30 AT$=CHR$ (1 7 ) : F0RT= 1 T06 : AT$= AT$+ AT$ : HE 

XTT : AT$=CHR$< 19)+AT$ 

32 PRINTCHR$< 147) : GOSUB7080 

35 POKE53280, 8 : P0KE53281 , 10 : PRINTCHR$(14 

4) 

110 SC=0:GOSUB 10000 

112 PRINTLEFT$<AT$,DSPC<21>;"HI SCORE: 

m • 

1 20 "PR I NTLEFT* < AT$ , 1 > SPC < 4 > J " SCORE : " J SC 

130 PR= 1 7 

140 P.F-17 

150 PC=15 

160 CP=T5 

170 GR=5 

189 RG=5 

190 GC=15 
200 CG=15 
286 FF=8 

210 PR I NTCHRf C 144): FOR J=4T022STEP2 
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226 FQRK-4T034STEP2 

238 PR I NTLEFT$ ( RT$ , J > SPC < K > CHRf < I NT < RND ( 
l)#26)+65> 

235 NEXTK, J 

240 PRINTCHR$<30) =FDRJ=3T023 

242 PR I NTLEFT$ < RT$ , J ) SPC ( 3 ) CHR$ ( 1 8 > > " M ; 

244 PR I NTLEFT* ( RT* , J ) SPC ( 35 ) CHR* ( 1 8 ) ; " " 

245 NEXTJ 

246 F0R.J=3TO35 

247 PR I NTLEFT* < RT* , 3 > SPC ( J > CHR* (1 8 ) j " " ; 

248 PR I NTLEFT * ( RT* . 23 ) SPC < J ) CHR* <18)1" " 

250 NEXTJ : PR I NTCHR* < 5 ) 

260 PR I NTLEFT* ( RT* , PR ) SPC ( PC ) ; CHR* < 35 ) 
270 GOTO970 
300 fi=PEEK<197) 

310 IFR=62 FIND F'R>4THENPR=PR-1 
320 IFfl=10 flNDPR<22THENPR=F'R+ 1 
330 IFfl=38 RNDP04 THENPC=PC-1 

349 IFR=41 RNDPC<34 THENPC=PC+1 

350 IFPC=CP RNDPR=RP THENGOTO530 

360 G*PEEK<984+PC+40#PR) : IFG<32THENG=G+6 
4 

362 G*=CHR*(G) 

364 IFG*=""ORG*=" "THENGOTO410 
378 IFG*="R" ORG*="E ,f QRG*=" I "0RG*="0"GRG 
$="U" THENGOTO430 
338 SC=SC~1 

400 POKESO+ 1,5: FORDL= 1 T039 : NEXTDL : POKESO 

+ 1.0 

410 GOTO450 

420 IFPEEK<984+PC+40#PR)=36 THENGOTO800 
424 GOTO450 

430 POKESO+ 1.25: FORDL= 1 TO30 : NEXTDL : POKES 

0 + 1.0 

440 SOSC+1 

450 PR I NTLEFT* < RT* , PR ) SPC < PC ) j CHR* < 5 ) ; CH 
R*<35) 

460 I FRP/2- 1 NT < RP/2 ) RNDCP/2=INT(CP/2)TH 
ENG0T01 100 

480 PR I NTLEFT * < RT* .. RP ) SPC < CP ) 1 " " 

430 RP=PR 
500 CP=PC 

510 PRINTLEFT*(RT*,1)SPC<10);" "ISCICHR* 
(157).:" " 
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539 RETURN 

600 I FGR>PRTHENGR=OR- 1 : GOTO650 
610 IFGR<PRTHENGR=GR+1 : G0T065@ 

620 IFGC>PCTHENGC=GC-1 : GOTO650 

639 IFGC<PCTHENGC=GC+1 : GOTO650 

640 GR=GR+ 1 NT < RND <1 ) #3 > - 1 : GC=GC+ 1 NT '1 RND < 
1)*3)-1 

650 IFP£EK<984+GC+40*GR)=35 THENGOTO800 
652 G 1 = I NT < RND <1 ) #3 ) - 1 = G2= I NT < RND <1 ) #3 > - 
1 

654 I FGR/2= I NT < GR/2 ) flNDGC/2= I NT < GC/2 ) THE 
NGR=GR+G1 : GC=GC+G2 

660 I FGR/2= I NT < GR/2 ) flNDGC/2= I NT < GC/2 ) THE 

NGR=RG : GC=CG : GOTO720 

670 PRINTLEFT$<fiT$..RG)SPC<CG>; " " 

680 PR I NTLEFT* < RTS , GR ) SPC < GC ) ; CHRS < 3 1 ) ; C 
HRS < 36) 

698 RG=GR 
700 CG=GC 
720 RETURN 

300 PR I NTLEFTS < RTS , RG ) SPC < CG ) ; " " 

310 PR I NTLEFTS < RTS , RP ) SPC < CP ) ; " " 

320 FORJ=1TO10 

830 PR I NTLEFTS < RTS , GR ) SPC ( GC > CHRS < 5 ) j CH 
RS<35) 

840 FORDL* 1 0TO20 : POKESO + 1 .• DL# J : NEXTDL 
850 PR I NTLEFTS < RTS , GR ) SPC < GC ) ; CHRS < 3 1 ) j C 
HRS < 36) 

852 NEXT j:P0KE80+ 1,0 
854 F0RJ=4TQ22STEP2 
856 F0RK=4T034STEP2 

858 S=PEEK<984+K+40#J) : IFS<32THENS=S+64 

859 SS=CHRS<S) 

860 I FSS= " fi " ORSS= " E " ORSS= " I " OP.SS= " 0 " ORSS 
= " U " THENGOSUB 1 288 

862 NEXTK 

864 NEXTJ 

865 IF FF=1THENG0T0878 

866 PR I NTLEFTS < RTS .. 1 0 ) SPC < 8 ) ; CHRS (1 44 ) ; " 
BONUS 10 POINTS" 

868 : 

870 = 

872 SC=SC+10 

874 PR I NTLEFTS < RTS , 1 ) SPC <1 0 ) ; " " ; SC ; CHRS 
<157);" " 

878 PR I NTLEFTS < RTS , 24 ) SPC < 1 0 > ; CHRS < 1 44 ) J 
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873 WA I T 1 97 , 64 : POKE 1 98 , 0 : 1 NF'UT " PLfiV flGfll 

n ";q$ 

880 IFLEFT$(G$, 1)=''N"THENGOTO1800 
90S I FSOHSTHENHS=SC 
910 PRINTCHR$( 147) 

920 GOTO110 
970 GOSUE300 
988 GQSUES88 
984 GOSUE300 
990 GOTO970 

1000 PRINTCHR$( 147) : END 
1100 PR I NTLEFT$ ( AT$ ,RP)SPC( CP ) CHR$ (144) 
CHR$ ( I NT ( RNB ( 1 ) *26 ) +65 ) : GOTO430 
1 200 FF= 1 : PR I NTCHR* ( 28 ) : PR I NTLEFT$ ( RT$ , J 
)SPC(K);S$: RETURN 

7000 REM ### READ IN GRAPHIC DATA ### 

7020 P0KE5S334, PEEK ( 56334 )RNB254 

7030 POKE 1 , PEEK < 1 ) AND25 1 

7040 FOR I =0TO5 1 1 : POKE 12288+1, PEEK ( 53248+ 

I ) : NEXT I 

7050 POKE1 ,'PEEK(i )0R4 : P0KE5S334, PEEK (563 
34)0R1 

7060 FORI=0TO15 : REABA-POKE 1 2568+ I , A : NEXT 
I 

7079 P0KE53272, (PEEK (53272) AND249) +12 

7080 RETURN 

7098 DATA24,24,60,90,24,3S,3S, 182,0,69, 1 

26,219,255,195,255,179 

10080 REM SET IJP SOUNDS 

10019 30=54272 

1 0020 FGRT=9T028 : POKESO+T , 0 : NEXT 
10940 P0KES0+5, 9 =REM ATTACK/DECAV 

1 0950 POKESO+S , 240 : REM SUSTA I N/RELEASE 
10860 PQKESO+24, 15 : REM VOLUME 
18070 P0KES0+4, 17 : REM WAVEFORM 
10980 RETURN 
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Parachute 



Quick, quick, there is a plane crew parachuting down from a 
damaged airliner into a pine forest and the pilot’s parachute hasn’t 
opened - only you can save him from crashing into the ground . 


Howto play 

At the top of the screen you will see the height and the speed of the 
pilot’s descent. To open the parachute you must divide the height 
by the speed to find out how long it will take for the pilot to land. If 
your answer is correct the parachute will open and your pilot will 
float gently to the ground. 

Your crew have three lives between them so try and keep them 
alive as long as you can. 
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The sooner you get the answer and type it in and press RETURN 
the earlier the parachute will open and the more points you will 
receive. 


Programming Hints 

You can make the game easier by reducing the numbers in lines 
210 and 220. 


Program 

10 REM 

20 REM * $ 

22 REM * PARACHUTE # 

24 REM * % 

25 REM 

30 P0KE52 , 43 : P0KE5S , 48 : CLP. 

32 GOSUE7000 

35 AT#=CHR$ (17): FORT* 1 TOS : RT$=RT#+RT$ : HE 
XTT : AT $=CHR$ ( 1 9 ) + AT# 

37 P0KE5328 1,3: POKE53280 , 6 ■ GOSUB 1 8080 
40 LV=3 
50 HS=0 
60 SC=0 
70 N#=" " 

80 TR=0 

84 P0KES0+ 1,30: F0RBL= 1 TO50 : NEXTDL : POKESQ 

+ 1,0 

86 PRINTCHR$( 147) 

200 F0KES0+ 1,30: FQRBL= 1 TO50 : NEXTDL : POKES 

0 + 1,0 

210 SP=INT(RNB(l)*90)+9 
220 RNS= I NT ( RND (1 ) # 1 2 ) + 1 
238 HT=RNS#8P 

240 PR I NTLEFT# ( AT# , 3 ) SPC ( 4 ) ; CHR$ < 1 44 ) ; "H 
EIGHT: "HTJ CHR$( 157) " " 

250 PR I NTLEFT $ < RT$ , 3 ) SPC ( 25 ) " SPEED : "SP; 
CHRT < 157) " " 

260 PR I NTLEFT$ ( RT$ , 1 ) SPC ( 27 ) " L I VES : " ; LV 
;CHR$<157); " " 

270 PR I NTLEFT# (RT$, 1) SPC ( 1 ) " SCORE = " ; SC J 
CHRf (157).: " " 

280 PP. I NTLEFT# ( AT# , 1 ) SPC ( 1 3 ) ; " H I SCORE : 
"JHS 
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290 PR I NTLEFT $ ( RT$ , 23 ) SPC ( 1 6 ) ; " T I ME ?? " 
300 PR I HTCHRf (149): FOR J* 1 T038 
310 IFJM6 RND J<22 THEN GOTO340 
320 PR I NTLEFT* ( AT* , 2 1 ) SPC ( J ) CHR* ( 40 ) 

330 PR I NTLEFT* ( RT* .. 20 ) SPC ( J ) J CHR$ (41) 

340 NEXTJ 
350 FORD=4TO20 

360 PR I NTLEFT * ( RT$ .. D- 1 ) SPC (19).:" " 

370 POKESO+l,30-n 

380 PR I NTLEFT* ( RT$ , D ) SPC ( 1 9 ) ; CHR* ( 3 1) CH 
R*(39) 

390 FORT=1TO80 
400 GETR* 

410 IFR*=" "THEN GOTO4S0 

420 IFR$=CHR*(13) THEN POKESO+l , 0 : G0T056 

0 

430 IFR*>"9" OR RK"0” THENGOTO460 
440 N*=N*+R$ 

442 FORL=1TO50 : NEXTL 

450 PR I NTLEFT* (RT*, 23) SPC (21 ) CHR*( 144) ; 
N*;" " 

460 POK.ESO+1 j 0 : NEXTT 
470 NEXTD 

480 PR I NTLEFT* ( RT* , 20 ) SPC ( 1 9 ) ; " " 

485 PR I NTLEFT* ( RT* , 2 1 ) SPC ( 1 9 ) ; CHR* ( 42 ) 
490 POKESO+l , 10 : P0KES0+4, 129 : FORDL=15TO0 
STEP-1 : P0KES0+24.-DL 

495 FORDD=1TO30 : NEXTBB : NEXTBL= POKESO+l , 8 
: POKESQ+4, 17 : P0KES0+24, 15 
500 PR I NTLEFT * ( RT* , 2 1 ) SPC ( 19); CHR* ( 42 ) 
510 LV=LV-1 

520 FORL=1TO1000:NEXTL 

530 I FLV=0THENGOTO790 

540 PRINTLEFT$(RT$j 21)SPC( 19) ; " " 

550 GOTO210 
560 : 

562 IFN*=" "THENGOTO4S0 
564 TR=TR+3 
570 Cfl=VRL(N*) 

580 IFCR=RNS THEN GOTQ630 
590 : 

600 PR I NTLEFT* ( RT* .• 23 ) SPC ( 1 6 ) ; " T I ME ?? 

II 

610 N$= " " 

620 G0T0468 
630 : 
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640 SC=SC+23-D-TR 

650 PRINTCHR$< 129) = F0RJ*DT028 

656 POKESO+l , 30- J 

660 PR I NTLEFT $ < AT$ > J-2 ) SPC ( 1 8 ) " " 

670 PRINTLEFT$<AT$,J-1)SPC<18)" " 

680 PR I NTLEFT$ < AT$ , J ) SPC <1 8 ) CHR$ < 3S ) +CHR 
i<36) 

690 PR I NTLEFT$ < AT$ , J+ 1 ) SPC <1 8 ) ; CHRf (37) + 
CHR$(38) 

700 : 

710 FORDL= 1 TO 1 0 : NEMTDL 
720 NEXT J:POKESO+ 1,0 
730 : 

740 : 

742 PR I NTLEFT! < AT$ , 1 2 ) SPC ( 9 ) j CHR$ ( 1 44 ) ; M 
A SUCCESSFUL LANDING! " 

744 PRINTLEFT$<AT$,14)SPC<11)J "SCORE ";2 
3-B-TR;" POINTS" 

750 FORDL=1TO750 : NEXTDL 

760 PR I NTLEFT! (AT!, 20) SPC ( 18) ; ” " 

770 PR I NTLEFT! ( AT! , 2 1 ) SPC <1 8 ); " " 

772 PR I NTLEFT! (AT!, 12)SPC<6) ; " 

ll 

774 PR I NTLEFT! (AT!, 14)SPC(8) i " 

II 

776 N!="" 

778 TR=0 
780 GOTO210 
790 = 

800 : 

810 PRINTCHR!( 147) 

820 PR I NTLEFT ! ( AT! , 8 ) SPC ( 1 0 ) .: " VOUR SCORE 
IS 11 J qc 

830 IFSC>HS THEN HS=SC=PRINTLEFT!(AT!, 12 
)SPC<10);"R NEW HIGH SCORE!" 

850 PRINTLEFT!(AT! , 18)SPC( 10) 1 " PRESS AN 
V KEV 

855 PRINTLEFT$(flT$.'20)SPC(10); " TO PLflV 
AGAIN " 

860 GETQ! 

870 IFQ!=" "THEN GOTO 868 
880 IFQ!="N" THEN GOTO 930 
890 SC=0 
980 LV=3 

904 h$="" 

986 TR=0 
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910 F'RINTCHR$( 147) 

920 GOTO210 
930 : 

940 PRINTCHR$( 147) 

950 END 

7000 REM RERB IN GRRPHIC DRTfi -:m: 

7020 P0KE5S334 , PEEK ( 56334 ) RND254 

7030 POKE 1 , PEEK ( 1 ) RND25 1 

7040 FOR I =8105 1 1 : POKE 12288+ I , PEEK (53248+ 

I): NEXT I 

7050 POKE 1 , PEEK ( 1 ) 0R4 : P0KE56334 , PEEK ( 568 
34)0R1 

7060 FOR I =0TO63 : RERDR : POKE 1 2568+ I , R : NEXT 

T 

7070 DRTR0 , 7 , 1 5 , 3 1 , 63 , 1 27 , 255 , 8 1 
7072 DRTfiO .224,240,248 , 252 , 254 , 255 , 1 8 
7074 BRTR41,20,9,3,5, 1,2,2 
7076 DRTR36,72, 16,128,64,0, 128, 128 
7078 DRTR0,0, 16,56,84, 16,40,40 
7088 DRTR24, 24, 24,24,24,24,60, 126 
7082 DRTR0 ,24,60,126,255,255,1 26 , 24 
7084 DRTR0, 0, 0, 0, 129, 90, 126, 255 
7095 P0KE53272, <PEEK(53272)RND240)+12 
7100 RETURN 

10000 REM SET UP SOUNDS 
10010 80=54272 

1 0020 FQRT=8T028 : POKESO+T , 0 : NEXT 
10040 P0KES0+5, 9 : REM RTTRCK/DECRV 
10050 P0KES0+6 , 240 : REM SUSTRIN/RELERSE 
10060 P0KES0+24, 15 : REM VOLUME 
10070 P0KES0+4, 17 : REN WAVEFORM 
10880 RETURN 
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Racer 



It's the last Grand Prix of the year and there are only two drivers 
who can win the World Championship - you or your opponent. 
There are two cars to choose from and the finishing line is in sight. 

Only one can win and it’s done by brain power not horse power. 


Howto play 

The game is for two players so firstly type in your names and press 
RETURN after each one. 

Both cars appear on the screen and the first player is set a problem 
to solve before moving their car. 
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The question is ‘What is your estimate of the distance travelled?’ 
At the top of the screen you are shown the speed and the time 
taken by the car. You must work out how far you have come. The 
more accurate your answer the further your car will be moved by 
the computer so think carefully before you type in your answer. 

The winner’s name will be flashed on the screen and you will be 
asked ‘do you want to play again’ . Press Y or N for yes or no . 

Hint To help you, 36 kilometres per hour = 10 metres per second. 
So a car travelling at 72 k. per hour for 20 seconds would 
cover 400 metres. 


Program 

10 REM # % %%%% % % % % % % # % % 

20 REM * * 

22 REM % RRCER * 

24 REM * * 

25 rem mmmmmmnmmmm. 

27 P0KE52, 48 : P0KE56, 48 : CLR 

39 AT*=CHR* <17): FORT* 1 T06 : RT*=AT$+AT* : HE 
XTT : AT*=CHR*< 19)+AT* 

32 PRINTCHRf < 147) : GOSUB7000 
35 PQKE53288 ,14= P0KE5323 1,12 

40 B I MP* < 2 ) : C* <1 ) =CHR* < 23 ) : C$ < 2 ) =CHR* < 3 1 
) 

45 GOSUB 10800 
50 IUMN<2) 

140 PR I NTLEFT * < AT* , 9 ) SPC < 5 ) " WH AT RRE THE 
PLRVERS NAMES? ” 

150 PR I NTLEFT * C AT* , 11 ) SPC < 5 ) ; 

160 INPUTP*< 1 ) 

170 PRINTLEFTf <RT$, 13)SPC<4) ; P$< 1 ) ; " VOU 
HAVE THE RED CAR " 

1 80 PR I NTLEFT* < AT$ , 1 5 ) SPC < 5 ) J 
130 INPUTP$<2) 

200 PRINTLEFT$<AT$, 17)SPC<4) ; P$<2) " VOU 
HAVE THE BLUE CAR " 

210 F0RDL=1TO300 : NEXTDL 
220 PRINTCHR$< 147) 

240 FORJ=0TO33 

250 PR I NTLEFT* < AT$ , 9 ) SPC < J ) " %' " 

260 PR I NTLEFT* < AT* , 15)SPC<J)"*" 
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270 NEXTJ 
280 FGRJ=10TQ14 

290 PR I NTLEFT * < AT* , J ) SPC < 37 > " * " 

292 NEXTJ 
380 N<1)=1 
310 N<2)=1 

320 PR I NTLEFT$ < AT*; 11 ) SF'C < 1 ) C* <1 ) ; CHR* ( 3 
5) 

330 PR. I NTLEFT* < AT* , 1 3 > SF'C ( 1 ) C* < 2 ) ; CHR* < 3 
5) 

340 F0RK=1T02 

342 I FK= 1 THENPR I NT C* < 1 ) 

344 I FK=2THENF'R I NTC* < 2 ) 

350 TM= I NT < RND <1 ) #90 ) + 1 0 

360 SP= I NT < RND < 1 ) # 1 50 ) +58 

370 PR I NTLEFT $ < AT* ; 2 ) SF'C < 0 ) " SPEED : ";SP; 

CHR$<157);" KM/HR " 

380 PR I NTLEFT* (AT*; 2) SPC <22)" TIME: MTM; 
CHR* (157); " SEC " 

382 PR I NTLEFT* (AT*.. 18)SPC<10)J " 

li 

385 PR I NTLEFT* ( AT* , 1 8 ) SF'C <1 9- < LEN < P* < K > ) 
72>>;P*(K) 

390 PR I NTLEFT* (AT*; 20) SPC (8) " WHAT IS VO 
UR ESTIMATE " 

392 PR I NTLEFT* < AT*; 22)SPC<6) " OF THE DIS 
TANCE TRAVELLED ?" 

395 PR I NTLEFT* < AT* , 24 ) SF'C < 1 V 

397 PR I NTLEFT* < AT* ; 24 ) SF'C <11) ; 

400 INPUT "NUMBER OF METRES ";ANS* 

485 I FVAL < ANS* ) < 1 THEN390 
4 1 0 ANS= VAL < ANS* ) : CA= < SP#TM# 1 008 ) 73688 
428 SC= I NT < 5— AES < < CA-ANS > 758 ) > 

438 FOR J=N < K ) TON < K ) +SC 

448 PR I-NTLEFT* < AT* .. 9+K#2 ) SF'C < N < K ) ) " 

458 N<K)=N(K)+1 

460 PR I NTLEFT* < AT* .. 9+K#2 > SPC < N < K ) ) j C* < K ) 

; CHR* (35) 

470 POKESO+ 1 ; 2@#K = FORDL= 1 TO30 = NEXTDL : POK 
ESO+1;0 

488 I FN < K ) =38THENGOTO520 
490 NEXTJ 
500 NEXTK 
510 GOTO340 

520 P0KES0+4 ; 33 : F0RQ=4T0 1 STEP- 1 
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525 FORDL= 1 TO50STEP2 : F0RDD=1T04 : POKESO+1 
, DL#DD/Q : NEXTDD, DL 
527 NEXTQ 

530 POKESO+ 1 0 : P0KES0+4 , 1 29 
540 FORDL= 1 TO500 : NENTDL 
550 PRINTCHR$<147> 

560 PRINTLEFT$<AT$,8)SPC<8);P$<K>; " IS T 
HE WINNER!" 

570 PR I NTLEFT* < AT$ , 1 4 > SPC < 9 ) ; " PLflV RGfl I N 
? (V/N) " 

580 GETA* 

590 I FA$= " " THENGOTO580 
600 I FA$= " V " THENGOTO220 
610 END 

7000 REM ##* READ IN GRAPHIC DATA 
7020 P0KE56334, PEEK < 56334 )ANB254 
7030 POKE 1 , PEEK ( 1 AND25 1 
7040 FORI=0TO511 : POKE1 2288+1 , PEEK <53248+ 
I): NEXT I 

7050 POKE1 , PEEK< 1 )0R4 : P0KE56334, PEEK (563 
34J0R1 

7060 F0RI=8T015 = RE ADA : POKE 12568+ I , A : NEXT 

T 


7070 DATA0 ,102,255,255.255..! 02 , 0 , 0 
7080 DATA204 ,284,51,51, 284 , 204 ,51, 5 1 
7095 P0KE53272, (PEEK(53272)AHD240)+12 
7100 RETURN 


10080 REM SET UP SOUNDS 
10018 80=54272 

1 0028 FORT=0TO28 : POKESO+T , 0 : NEXT 
10840 P0KES0+5, 9 :REM ATTACKXDECAV 
1 0058 P0KES0+6 , 240 : REM SUSTA I H/RELEASE 
10868 P0KES0+24, 15 : REM VOLUME 
10078 POKESO+4, 129 : REM WAVEFORM 
10880 RETURN 
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Proverbs 


ARRANGE THE WORDS INTO A PROVERB. 

USE FI TO MOVE THE ">" UP 

USE F7 TO MOVE THE ">" DOWN 

USE D TO •'DELETE" A WORD 

USE I TO "INSERT" A WORD 


> FALL 
BEFORE 
COMES 
A 

PRIDE 


There is an old proverb that says 'every cloud has a silver lining’ 
and another which says It’s an ill wind that blows nobody any 
good'. 

But if your proverbs read 'every silver cloud has a lining’ or 'it’s 
nobody that an ill wind blows any good’ could you sort them out 
and rearrange them properly? 

Well, here is your chance to use the edit and cursor keys on your 
computer to move words around. 

Howto play 

The screen will show you a proverb all jumbled up and you must 
reposition the words to make sense using the function keys to move 
the cursor down and up. 





160 Proverbs 


Key D to DELETE 
Key I to INSERT 

Line the cursor up against the word you wish to move and press the 
D key to delete. Then move the cursor down the board until you 
line up against the word where you wish to insert. 

Press I and the missing word will be pushed in and the other words 
will rearrange below. 

You keep moving words and using the D and I keys until you have 
the proverb in the correct order. 


Programming Hints 

As the program is random you may get the same proverb twice 
running. You can change lines 900 to 990 to put in your own 
proverbs or well known sayings. 


Program 

10 REM 

20 REM % % 

22 REM % PROVERBS * 

24 REM * * 

25 rem 

30 RT$=CHR* < 17) : F0RT=1T06 = RT$=RT$+RT$ : ME 
XTT:RT$*CHR$<19)+RT$ 

32 PR I NTCHR$ <147) 1 CHR$ < 158): OOSUB 1 0000 
35 POKE53280J 6 : P0KE53281 > 0 
40 BIMW$< 10; 12) 

42 DIMS<12) 

44 DIMGK12) 

50 C=1 
52 TM=1 
54 MM=0 
56 FF=0 
60 FORJ=1TO10 
70 RERDT* 

80 F0RK=2T0LEN<T$) 

90 I FM I D$ < T* ; K ; 1 ) O " " THENC0T0 1 30 
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100 U$ < J > C ) =M I B$ ( T$ , TM .. K-TM ) 

110 TM=K 
129 C=C+1 

139 NEXTK 

140 C=1 
158 TM=1 
160 NEXTJ 

180 WN=INT(RNB(1)*10)+1 

190 WC=0 : GQSUB1000 

260 F0RJ=1TQ12 

2101 F m ( UN , J ) = " " THENGOTO230 

220 UOUC+1 

230 NEXTJ 

250 F0RJ=1T0UC 

260 RsINT<RND<l)#UC)+l 

262 I FQ C R ) = 1 THENGOTO260 

270 S(J)=R 

272 Q(R)=1 

280 PR I NTLEFT* ( RT$ .. J+ 1 0 ) SPC ( 1 5 ) U$ ( UN , S ( J 
)) 

290 NEXTJ 

300 PR I NTLEFT* ( RT* , 1 1 ) SPC ( 14) J ">" 

310 CP- 11 

320 FORBL=iTQ10 : NEXTBL 
322 GETG* 

330 I FG*~ " " THENGOTO320 

340 IFG*OCHR*( 136) THENGOTO480 

358 PR I NTLEFT* ( RT* , CP ) SPC (14);" " 

360 CF-CP+1 

370 IFCP>10+UC THENCP=CP-1 
380 PR I NTLEFT $ ( RT* , CP ) SPC (1 4 ) " > " 

390 GOTO320 

400 IFG*OCHR*(133) THENGOTO460 
410 PR I NTLEFT * ( RT* , CP ) SPC (14);" " 

420 CP=CP-1 

430 IFCPCl 1TH£NCP=CP+1 

440 PR I NTLEFT* < RT* > CP ) SPC ( 1 4 ) j ">" 

450 GOTO320 

460 I FG*<> " B " THENGOTO520 
470 IFCPdl 0RCPM1+UC THENGOTO320 
480 IFMMO0 THENPOKESO+1..30:FORDL=1TO100 
: NEXTBL : P0KES0+1 , 0 : GOTO320 

493 MM=S< CP-10) 

492 FORK=CP-10TO11 

494 S(K)=S(K+1 ) 

496 NEXTK 
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498 SQ2>=0 

509 PR I NTCHR$ < 147) • GOSUB 1 900 

519 FF=1 : G0T0599 

528 IFG$0" I "THEN GOTO320 

522 IFMM=0THEHGOTO320 

539 IFCPai ORCF'Ml+WC THENGOTO320 

54@ FOP. J = 1 2T OCP- 1 0STEP- i 

542 S<J)=S<J-1> 

560 NEXTJ 

570 S< CP- 10 MIN 

580 PRINTCHR$( 147) : GOSUB 1000 

582 NN=0 

590 F0RJ=1T012 

592 I FS < J ) =0THENGOTO620 

690 PR I NTLEFT* < RTf , J+ 1 0 ) SPC <1 5 ) j W$ C WN , S < 

J)) 

610 IFS( J)OJ THENFF=1 
620 NEXTJ 

639 IF FF=0THENGOTO700 

640 FF=0 
650 GOTO380 

700 FQRQQ=0TO 1 6 : P0KE5328 1^QQ : FORTT= 1 TO 1 5 
: POKESO+ 1 , QQ*TT : P0KES0+ 1 , 250-QQ#TT : NEXTT 
T,QG 

710 POKESO+1 > 0 : P0KE53281 0 

720 PR I NTLEFT $ < AT$ .■ 2 1 ) SPC ( 8 ) J " THAT IS TH 

E CORRECT ORDER" 

730 FORDL=1TO1080 •' NEXTDL 

740 F0RJ=1T012 

750 S< J)=9 

760 Q<J)=0 

770 NEXTJ 

780 PRINTCHR$< 147) 

790 GOTO 180 

990 BATA" MANY HANDS MAKE LIGHT WORK " 
910 DATA" TOO MANY COOKS SPOIL THE BROTH 

II 

920 DATA " A STITCH IN TINE SAVES NINE " 
939 DATA " EVERY CLOUD HAS A SILVER LINI 
NO " 

949 DATA " DON'T PUT ALL YOUR EGGS IN ON 
E BASKET " 

950 DATA " LOOK BEFORE YOU LEAP " 

960 DATA" MORE HASTE LESS SPEED " 

970 DATA" DON'T CROSS BRIDGES UNTIL YOU 
CONE TO THEN " 
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980 DATA" PRIDE COMES BEFORE A FRLL " 

999 DATA " HE WHO RIDES THE TIGER CANNOT 
DISMOUNT " 

1000 REM DISF'LV THE INSTRUCTIONS 

1010 PR I NTLEFT$ ( AT$ , 1 ) SPC < 4 ) ; " ARRANGE TH 
E WORDS INTO A PROVERB." 

1020 PR I NTLEFT $ < AT$U 3 ) SPC ( S ) ; ” USE FI T 

0 MOVE THE •'>•' UP ” 

1030 PR I NTLEFT $ < AT$ ; 4 > SPC < 6 > " USE F7 T 

0 MOVE THE •'>■' DOWN" 

1048 PR I NTLEFT $ < AT$ .. 5 ) SPC ( 6 ) 11 USE D T 

0 ' DELETE' A WORD" 

1058 PR I NTLEFT $ < AT $ ; 6 ) SPC < 6 ) ; " USE I T 

0 ' INSERT'' A WORD" 

I860 RETURN 

10000 REM SET UP SOUNDS 
10010 SCl=54272 

1 0820 FORT=0TQ28 : PQKESO+T , 0 : NEXT 
10340 POKESQ+5,9 : REM ATTACK/DECAV 
1 0050 P0KES0+6 , 240 : REM SUSTA I N/RELEASE 
10060 P0KES0+24> 15 : REM VOLUME 
10070 POKESO+4,17 : REM WAVEFORM 
10080 RETURN 
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Simon 



This is our version of this very popular game where you have to 
beat the computer by having a good memory. 

You will be shown numbers, or colours, and have only a few 
seconds to memorise them before the screen goes blank and you 
are asked to repeat them in the same sequence as the original. 


How to play 

Your computer will ask if you want to play Numbers or Colours 
and you make your selection using keys 1 or 2. The computer will 
then put a sequence of numbers on the screen and ask you to 
remember them. If you type in the wrong sequence the computer 
will give you a loud ‘raspberry’ and show you the correct answer. 
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To stop playing numbers and switch to colours press the RUN/ 
STOP key and then type RUN again and you will be back at the 
beginning. 

To play the colour sequence you have to press keys 0 to 8, with the 
colours shown on the front of these keys. 


Programming Hints 

The two routines for selecting the numbers and colours are in lines 
210 and 250. Why not try and write your own routines to generate 
letters as well? Remember that computers recognise letters by 
their ‘ASCII’ codes which start with 65 for A, then 66 for B and so 
on. 


Program 


10 REM $ $ $ $ $ $ $ $ $ if! $ $ $ $ $ & $ $ $ % 

20 REM # :«►: 

22 REM $ SIMON * 

24 REM * * 

25 REM if- •■‘I 1 '* fy- $ -¥ $ $ $ H*- $ ■¥• $ & $ £ $ $ ^ 

27 P0KE53286 ..12: P0KE5328 1,12 

SO flT$=CHR$< 17) : F0RT=1T06 : RT$=fiT$+flT$ = HE 
NTT : RT$=CHR$< 19)+fiT$ 

32 PRINTCHR$( 147) 

35 GOSUB 16000 
40 T=1 
58 SC=0 
60 TR=0 

70 PRINTLEFT$<RT$, 8)SPC< 10) CHR$(5) j " 1 . 
NUMBERS" 

80 PR I NTLEFTf ( RT$ .. 1 8 ) SPC (1 @ ) ; " 2 . COLOURS 

tl 

90 PR I NTLEFT* < RT$ , 1 2 ) SPC ( 1 0 ) " PRESS 1 OR 


180 GET fi$ 

110 IFR$=" "THEN 100 
112 : 

1 20 I FFifO " 1 " flNDfif O " 2 " THENGOTO 1 80 
130 M$="" 

140 PRINTCHR$<147) 
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1 45 PR I NTLEFT * ( RT* , 1 ) SF'C ( 14); CHR* ( 5 ) ; " S 
I M 0 N " 

1 50 PR I NTLEFT* ( RT* , 3 ) SPC (4); CHR* ( 1 58 ) J " S 
EGUEHCES = " ; TR 

1 60 PR I NTLEFT* ( RT* , 3 ) SPC ( 20 ) ; CHR* ( 5 ) ; " SC 
ORE : " ; SC 

1 70 PR I NTLEFT * (RT* , 6 ) SPC ( 6 > ; 

180 C=INT(RND(1)#6)+1 
190 FORJ=lTOT 
200 IFfi*= " 2 " THEHOOTO250 
210 R=INT(RND(1>#10) 

2 1 5 POKESO+ 1 , P.+ 1 0 = P0KES0+4 ,17 = FORDL= 1 T05 
0 : NEXTDL : P0KES0+4 , 16 

228 printr; 

240 GOTO270 

250 R= I NT ( RND ( 1 ) $8 ) 

260 P0KE646 , R : PR I NTCHR* ( 32 > ; CHR* ( 18); CHR 
$ < 32 ) ; CHR* < 32 ) ; CHR* ( 1 7 ) ; 

262 PR I NTCHR* < 1 57 ) CHR* ( 1 57 ) ; CHR* < 32 ) ; CH 
R* ( 32 ) ; CHR* ( 146); CHR* ( 1 45 ) ; 

265 POKESC* 1 > R+10 : PGKESO+4 ,17: FORDL= 1 T05 
0 : NEXTDL ; P0KES0+4, 16 
270 R=R-<R$="2") 

275 M*=M*+R I GHT* ( STR* ( R ) , 1 ) 

278 FORDL= 1 TO 1 98 : NEXTDL 
280 NEXTJ 

282 FORBL= 1 TO 1 58 ; NEXTDL 

284 PR I NTLEFT* < RT* , 6 ) SPC < 6 ) ; " 

it 

285 PR I NTLEFT* ( RT* , 7 ) SPC < 6 ) i " 


287 POKE 198,0 

290 PR I NTLEFT* < RT* , 1 6 ) SPC < 6 ) ; CHR* < 1 44 ) ; " 
WHAT IS VOUR ANSWER?" : IFR*=" 1 "THEN315 
295 PR I NTLEFT* < RT* , 1 8 ) SPC < 6 ) ; : N*= "" 

297 B*= " " : GETS* =IF< B*< " 1" ORB* > " 8 " ) RNDB*< 
>CHR* < 1 3 ) RNDB*OCHR$ < 29 ) THEN297 

298 IFB*=CHR*<13)THENPRINT : G0T0330 

299 I FB*OCHR$ < 20 ) THENGOTO305 

300 PR I NTCHR* < 1 57 ) ; CHR* (157 ) ; CHR* ( 32 ) ; CH 
R* ( 32 ) CHR* < 1 7 ) ; CHR* (1 57 ) ; 

302 PRI NTCHR*tT5T> ; CHR* ( 32 > CHR* ( 32) ; CHR 
* ( 1 45 ) CHR* ( 157); CHR* ( 1 57 ) ; CHR* ( 1 57 ) ; 

304 N*=LEFT* < N* , LEN ( N$ ) - 1 ) : G0T0297 
395 P0KE64S , VRL ( B* ) ~i : : PRI NTCHR* ( 32 ) ; CHR 
*(18 ) ; CHR* ( 32 ) ; CHR* ( 32 ) ; CHR* ( 17); 
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386 PR I NTCHR* (157); CHR$ ( 157); CHR$ < 32 ) ; CH 
R$ ( 32 ) ; CHR$ ( i 46 ) CHR$ (145) ; 

387 POKESQ+1 , 10+(VRL(B$}~i ) : P0KES0+4, 17*. 
FORDL=1TO50 : NEKTBL : POKESQ+4, 16 

3 1 0 h$=N$+B$ ■' G0T0297 

315 PR I NTLEFT$ ( RT$ , 1 6 ) SPC ( 6 ) ; •• N$= " " 

3 1 7 B $= " " : GETS* : I F ( B$< " 0 " ORB$> " 9 " ) RHBBK 
>CHR$ (13) RNBB* OCHR$ ( 28 ) THEN3 1 7 

322 I FB$=CHR$ ( 1 3 ) THEHPR I NT : G0T0338 

323 I FB$=CHR$ ( 20 ) THENF’R I NTCHR$ ( 1 57 ) ; CHRt 
( 1 57 ) ; CHR$ (157); CHR$ ( 32 ) CHR* ( 1 57 ) ; 

324 1 FB$=CHR$ ( 28 ) THENN* =LEFT* ( N* , LEN ( N$ ) 
-1 ) : G0T0317 

325 PRINTBf; " 

326 POKESO+ 1 .. 1 8-i- ( VRL ( B$ ) ) : P0KES0+4 , 1 7 : FO 
RDL=1TO50 : NEKTBL = P0KES0+4, 16 

327 N$=N*+B$:00T0317 
338 TR=TR+1 

335 I FN$=M$ THENG0T0448 
348 PRIHTCHR$( 147) 

350 PR I NTLEFT* ( AT$ , 6 ) SPC ( 8 ) ; CHR$ ( 5 ) ; " THE 
SEQUENCE WAS : " 

368 PR I NTLEFT* ( RT* , 1 8 ) SPC ( 6 ) ; 

370 IFA$="2"THENGOTO400 

380 FOR J= 1 TOLEN ( M ) : PR I NTH I B$ ( M$ , J , 1 ) " 


" ; : NEXT J 
390 G0T0424 
480 FORJ=lTOT 

4 1 8 P0KE64S , VRL ( M I B$ ( M$ , J , 1 ) ) + ( fl$= " 2 " ) 

411 PR I NTCHR$ ( 32 ) ; CHR$ ( 1 8 ) ; CHR$ ( 32 ) ; CHR$ 
( 32 ) ; CHR$ ( 1 7 ) ; CHR* ( 1 57 ) ; CHR$ (157) ; 

412 PR I NTCHRf ( 32 ) CHR* ( 32 ) ; CHR* ( 1 46 ) ; CHR 


$(145); 

4 1 3 BB= VRL < M I B$ ( M* , J , 1 ) ) + ( fl$= 2 “ ) 

4 1 4 POKESO+ 1 , 1 0+BB : P0KES0+4 ,17: FORBL~ 1 TO 
50= NEKTBL = POKESQ+4, 16 

4 1 5 FORBL= 1 TO 1 08 : NEKTBL 
428 NEXTJ 

424 FORBL= 1 TO490 : NEKTBL 
438 GOTO 130 
448 : 

458 PR I NTLEFT* (RT$, 21 ) SPC ( 11); CHR* ( 5 ) ; " C 
ORRECT ! " 

468 SC=SiJ+T 


470 T— l+i 


474 FORBL= 1 T0388 : NEKTBL 
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480 GOTO 130 

18080 REM SET UP SOUNDS 
18010 80=54272 

1 0020 FORT=0TO28 : POKESO+T ; 8 : NEXT 
1 0030 POKESO+ 1 .• 20 : REM P I TCH 

10040 P0KES0+5..9 : REM fiTTRCK/BECAV 
1 0050 POKESO+S .. 240 : REM SUSTR I N/EELE 
1 3060 P0KES0+24 ..15: rem VOLUME 
16070 P0KES0+4, 16 : REM WAVEFORM 
10080 RETURN 
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Balance 


TRIES : 1 SCORE : 1 

VOUR WEIGHT to BRLRNCE IS 9750. 

£> 



£50 500 100O 2000 4.000 5000 

111 0 

OO YOU WRNT R 4000 WEIGHT? 



If you like baking cakes, weighing out sweets or even checking out 
who has the heaviest conker this year then this program is for you. 

You have to work out, in as few moves as possible, from a selection 
of weights, how many you need to balance a set of scales. 

How to play 

On the screen you will see a set of scales with a weight on the left 
handset of pans. 

The computer will ask you for your choice of weights from six 
which will be displayed, and marked, along the bottom of the 
screen. The computer will move along the row and stop at each 
weight and ask you if you wish to use it. For yes press Y and for no 
press N. 
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The screen will show your tries and scores. 


Program 


1 0 REM #######$###$###$$### 

20 REM * * 

22 REM % BALANCE * 

24 REM # * 

25 rem ##*#*#******##**#*## 

30 AT$=CHR$ <17): F0RT= 1 T06 : AT$=fiT$+AT$ : HE 
XTT:AT#=CHR#<19)+AT# 

32 SC=0 : TR=0 

33 14 1 P =CHR$ <18) +CHR# < 1 63 ) +CHR$ < 1 65 ) +CHR# 
< 1 65 ) +CHR# (165) +CHR# <146 ) 

34 W2#=CHR$ (18) +CHR$ < 1 65 ) +CHR# < 1 65 ) +CHR# 
<146) 



GOSUB 10000 : POKE 

33280. 6 : P0KE53281 .. 15 

36 

PRINTCHR$< 147) j 

CHR#< 144) 

40 

K=25 


42 

PR I NTLEFT# (AT#, 

2)SPC<4) "TRIES = "JTR 

44 

PR I NTLEFT# < AT#, 

2 ) SPC < 23 ) " SCORE : " SC 


50 F0RJ=1T035STEP5 

60 PR I NTLEFT# < AT# , 23 ) SPC < J ) } K ; CHR# <157 ) ; 

"G. " 

70 K=K#2 
80 NEXTJ 

90 PR I NTLEFT# < AT# , 6 ) i ■ GOSUB2600 
100 I C= I NT < RNB < 1 ) *5 ) +2 
110 TT=0 

1 20 R= < I NT < RNB < 1 ) # 1 27 ) + 1 ) #25 
1 30 PR I NTLEFT # < AT# , 4 ) SPC < 2 ) " VOUR WEIGHT 
TO BALANCE IS";R;CHR#<157).; "G. " 

140 TR=TR+1 

150 PR I NTLEFT # < AT# > 8 ) SPC < 1 0 ) " 

160 D=0 : GOSUB1800 

170 PR I NTLEFT $ < AT# , 1 6 ) SPC < 1 0 ) CHR# < 28 ) J 14 1 

# 

180 K=25 

185 WAIT197 > 64 : POKE 198.' 0 
190 F0RJ=TT07 

200 PRINTCHR# < 144) : PR I NTLEFT# < AT#.. 20) SPC 
<5)j " 

201 PR I NTLEFT # < AT# , 20 ) SPC < 5 ) ; " BO VOU WAN 
T A".:KJCHR$<157);"G. WEIGHT?" 

202 GETA# 
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294 IFR$=" "THEN GOTO202 

206 IFfl$="V" THEN TT=TT+K : F'RINTLEFTSCfiT 

$ , 24 ) SPC < ( .T- 1 ) *5+3 ) " 1 " ; 

203 IFfl$0"V" THEN PR I NTLEFT $ ( RTf .. 24 ) SPC 
((J-l)#5+3);"0"; 

210 FORD=1TQ50 : NEXTB 
214 K=K*2 

2 1 6 POKESO+ 1 , 20 : FORDL= 1 T058 : NEXTDL ; POKES 
0+1 ; 3 
220 NEXTJ 

222 PR I NTLEFTf ( RT$ , 3 ) SPC < 1 9 ) CHR$ ( 3 1>;W2$ 
226 F0RB=1 TO 5@0 : NEXTB 

223 I FTT <RTHENGOTO330 

233 B= 1 : PR I NTLEFT $ ( RTf .. 6 ) ; CHRf <144); :GOS 
IJB4000 

240 PR I NTLEFTf ( RTf .. 1 2 ) SPC ( 1 @ ) CHR$ ( 28 ) ; W 1 
$ 

244 PR I NTLEFTf ( RTf , 1 2 ) SPC (18) CHRf ( 3 1 > ; W 1 
$ 

250 I FTT>RTHENGQTO300 

260 B=0 : PR I NTLEFTf ( RTf .. 6 ) ; CHR$ (144);: QOS 

IJB4000 

262 PR I NTLEFT $ ( RTS , 1 2 ) SPC (10); CHR$ ( 28 ) ; W 
If 

264 PR I NTLEFT $ ( RTf , 1 2 ) SPC ( 1 8 ) ; CHR* ( 3D; W 

1 $ 

270 FORD 1 = 1 TO 1 0 : F0RB2= 1 T05 : F0RB3= 1 T04 : PO 
KESO+D B1*B2*B3 : NEKTB3.. B2, B1 : POKESO+1 , 0 
275 FQRBL= 1 T0583 : NEXTDL 
230 SC=SC+1 
290 GOTO340 

303 B=3 : PR I NTLEFTf ( RTf , 6 ) ; CHRf ( 1 44 ) ; : GOS 
UB3000 

3 1 @ PR I NTLEFTf ( RT$ , 8 ) SPC ( 1 1 ) ; CHRf ( 23 ) ; W2 

$ 

320 PR I NTLEFTf ( RTf , 1 6 ) SPC ( 1 8 ) ; CHR$ ( 3 i ) J U 
If 

330 : 

340 I FTT ORTHENFORB= 1 TO 150 : POKESO+ 1 , RNB ( 

1 ) *256 : HEXTB : POKESO+ 1 0 

350 00T036 

800 RETURN 

1000 RETURN 

1100 RETURN 
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2000 PRINT" 

2001 PRINT" 

2002 PRINT" 

2003 PRINT" 

2004 PRINT" 

2085 PRINT" 

2086 PRINT" 

2007 PRINT" 

2008 PRINT" 

2009 PRINT" 

2010 PRINT" 

2011 PRINT" 

2012 PRINT" 
2020 RETURN 

3000 PRINT" 

3001 PRINT" 
3802 PRINT" 

3003 PRINT" 

3004 PRINT" 

3005 PRINT" 

3006 PRINT" 

3007 PRINT" 

3008 PRINT" 

3009 PRINT" 

3010 PRINT" 

3011 PRINT" 

3012 PRINT" 
3020 RETURN 
4800 PRINT" 

4001 PRINT" 

4002 PRINT" 

4003 PRINT" 

4094 PRINT" 

4095 PRINT" 

4906 PRINT" 

4907 PRINT" 

4908 PRINT" 

4909 PRINT" 

4010 PRINT" 

4011 PRINT" 

4012 PRINT" 
4920 RETURN 


/I 


/ I 






10000 REN SET UP SOUNDS 
10010 50=54272 

1 0020 F0RT=0TO28 : POKESO+T , 0 : NEXT 
10040 P0KES0+5, 9 : REM flTTRCK/DECflV 
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10050 POKESQ+S t 240 : REM SUSTfil H/RELEA3E 
10060 P0KES0+24, 15 : REM VOLUME 
10070 PQKESO+4; 17 : REM WAVEFORM 
10030 RETURN 
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Chemist 



YOU HRUE 10 LITRES OF FLUID 
HOW MUCH URTER WILL YOU USE? 



A mad scientist has made a highly powerful liquid which, if not 
mixed with water and diluted properly, will explode and destroy 
your house. 

Only you can stop the liquid exploding by working out a formula to 
decide how much water is needed to make the mixture safe. 


How to play 

The screen will show a flask containing the dangerous fluid and 
telling you how many litres the vessel contains. 

You must work out how much water is required to make the fluid 
harmless using the ratio at the top of the screen. If you are correct 
to within 5% you are safe but an error outside this range will mean 
an explosion and the loss of one of your three lives. 
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Type in your estimate of water needed, press RETURN and watch 
the water drip into the flask - Good Luck. 


Programming Hints 

You can alter the ratios given by changing the numbers in lines 60 
and 64. Increase them to make the game more difficult. The 
number in line 50 governs the number of lives you have at the start. 


Program 


1 0 REM # £ # # $ # $ $ : M % * if: $ $ $ $ % $ if: % $ 

20 REM * * 

22 REM * CHEMIST * 

24 REM $ sjs 

REM 4- 4 ^ $ $ £ .y 4- y y M y ^ ^ y y. :?■' y 

26 GOSUB 1 8800 : SC=0 
28 POKE53230 , 8 = P0KE5328 1 , 4 
30 fiTT^HRTClSO ; F0RT=lT025 : fiT*=flT*+CHR*( 


17 

: NEXT! 





32 

s*a>=CHR$a70>+" 


ii 

+c 

HRT< 180) 

34 

ST<2)=" " ; F0RT=1T 

06 : ST ( 2 

)~ 

ST(2)+CHR$< 

j. O 4 

41' : NEXT! 





35 

F0RT=1T0S 





36 

F$ i; i ) = f$ ( i > +0HR$ ( 

164) 




qq 

F $ < 2 ) =FT ( 2 > +CHRT ( 

175) 




40 

p" ^ if ", “J ) ~ p* if | «{ ,1 4- 1 l~| Ptj ! '•£. I. 

1 85 ) 




.-l '“s 

F$(4)=F$(4)4-CHR$< 

162) 




44 

Fi<5)=Fi<5)+^Ri< 

184) 




46 

Fi ( 6 ) =Fi < 6 ) +CHRi ( 

1 83 ) 




48 

Fi < 7 ) =Fi < 7 ) +CHRi ( 

163) 




49 

Fi < 8 ) =F$ C 8 ) +CHR$ ( 

32) : HEX 

IT 


50 

LV-U 





52 

Fi ( 5 ) =CHRi t 1 8 ) +F$ < 5 ) +C 

HR 

i( 

i 4 fa ) 

54 

Fi < 6 ) =CHRi ( 1 8 ) +F i 

( 6 ) -H_ 

HR 

i( 

146) 

56 

F$<7)«CHR*<18>+F$<7)+C 

HR 

i< 

146) 

58 

FT < 8 ) =CHRT < 1 8 ) +FT (. 8 ) +C 

HR 

i( 

*1 A £ \ 

X ‘“•ft* / 

60 

fl=INTCRND<l)#4)+l 





64 

B=INT<RNIKl)*5>+5 





65 

PRINTCHRTC 147) 





68 

F'RINTLEFTT<fiTT, 11 

)SPC< 

11)C 

HRT< 144) "VO 

UR 

RATIO 18=" 
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70 PR I HTLEFT * < ftT * , 1.3 ) SPC C 1 ) A " PRRTS FUJI 
D TO ";B;" PRRTS WATER" 

74 FORHL= 1 TO2080 = NEXTDL 
80 PRIHTCHRJC 147) 

1 08 PR I HTLEFT * < AT* , 1 ) SPC ( 1 2 > CHR* ( 5 ) ; "LI V 
ES LEFT: " ; LV 


1 92 PR I HTLEFT * < AT* , 3 ) SPC < 9 > CHR* < 3 1 ) ; " V0U 
R RATIO IS "fi.; " : ";B 
185 PGKE646, 0 

119 FORT= 1 TO 1 5 : PR I NTLEFT* < AT* , 8+T ) SPC < 25 
)S$<1> : NEXTT 

120 PR I HTLEFT* < AT* , 24 > SPC < 25 ) S* ( 2 ) 

150 R= I HT ( RHD < 1 ) #20 ) + 1 

1 69 PR I HTLEFT* C AT* ,10) SPC ( 6 ) CHR* ( 28 ) j " V 
OU HAVE" 

1 62 PR I HTLEFT* < AT* ,11) SPC < 9 ) R 

164 PR I HTLEFT* < AT*, 12) SPC < 4) "LITRES OF F 
LUID" 

165 GOSUB800 

1 70 PR I NTLEFT* < AT* ,14) SPC < 4 ) CHR* < 1 44 ) ; " H 
OW MUCH WATER" 

172 PR I HTLEFT * ( AT* , 1 5 ) SPC < 4 ) " WILL VOU U 
SE? " 


1 80 PR I HTLEFT* < AT* , 1 7 ) SPC < 6 ) " " ; 

1 99 PR I HTLEFT* < AT* ,17) SPC < 6 ) ; : I HPUTRHS* 

1 92 I F VAL < AHS* ) =8THEHG0T0 1 90 

194 ANS=VRL(AHS*) 

200 T=(R/A)if:B 

329 IFAHSXT-T/20) AND AHS<(T+T/20) THEN 


OOTO500 

339 POKESG+4 ,129: P0KES0+6 , 240 

349 FORT= 1 TO 1 98 : POKE53280 , T : P0KE5328 1 , T+ 
1 • POKESU+ 1 , i 

350 NEXTT : P0KES0+4 , 1 28 : P0KES0+6 , 32 


360 PRIHTCHR$( 147) 

365 P0KE53281 , 6 

370 PR I HTLEFT * < AT* , 1 2 ) SPC (11)" ONE LIFE L 
OST ! " 

398 FORDL= 1 TO 1 080 : HEXTDL 

400 L'v-LV-1 

410 P0KE53281 , 4 

420 IFLV=0THEHGOTO590 

438 G0T089 

508 : 

520 GOSUB700 

550 PR I NTLEFT* < AT*, 25) SPC < 5) "THE FLUID I 
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5 SfiFELV DILUTED"; 

560 SC=SC+ 1 

570 FGRBL= 1 TO2000 : NEXTBL 

580 001868 

530 PRINTCHR*C 147) 

600 PR I NTLEFT* ( AT* , S > SPC ( 1 3 > " ALL L I VES L 
03T ! " 

6 i 8 PR I NTLEFT * < RT* , 1 2 ) SPC ( 8 ) " VOUR F I NRL. 
SCORE I 8" SC 

620 END 

780 PR I NTLEFT* ( RT* 5 > SPC ( 23 ) CHR* ( 1 64 > 

702 PR I NTLEFT* C'fl If , 6 ) SPC ( 28 ) CHR* < i 1 7 ) ; CH 
R* < 1 77 ) ; CHR* ( 96 > ; CHR* < 96 ) 

785 P0KE646;6 

7 1 0 F0RH=HH+ 1 103 : FORT= 1 T08 

712 F0RDR=7T022~H : PR I NTLEFT* (AT*., DR)SPC< 

C*J— ! **i n l! 

7 1 4 PR I NTLEFT* < RT* , DR ) SPC < 28 > " " = HEXTBR 

715 POKESO+4,129 

728 PR I NTLEFT* ( RT* , 23-H ) SPC ( 26 )F$<T) 

725 FORBL=1TO50 : NEXTBL 
730 POKESO+4,128 
740 NEXTT 
750 NEXTH 
760 RETURN 

800 HH= I NT ( 9*fi/ C fi+B > > : CO* I NT < RND ( 1 ) # 1 5+ 1 

) = IFCO=4THEN800 

885 P0KE646.C0 

8 1 0 FORH=0TOHH : FORT* 1 T08 

820 PR I NTLEFT* < AT* , 23-H > SPC ( 26 ) F* < T ) 

825 FORDL=1TO50 : NEXTBL 
840 NEXTT 
850 NEXTH 
860 RETURN 

10000 REM SET UP SOUNDS 
10010 80=54272 

1 0020 FORT=0TG28 : POKESO+T , 8 : NEXT 
1 0030 POKESO+ 1 .• 20 : REM P I TCH 
10040 P0KES0+5j 49 : REM RTTRCK/DECRV 
1 0050 P0KES0+6 , 32 : REM SUSTFl I N/RELERSE 
10060 P0KES0+24.. 15 : REM VOLUME 
10070 P0KES0+4, 128: REM WAVEFORM 
10080 RETURN 
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Odd Word Out 



At last - a chance to prove how quick you are at spotting the odd 
word, and also beat a time clock. 

You will be given a selection of words which either mean the same 
thing or are related in some way except for one ‘odd man out’ 
which must be identified. 


Howto play 

This is a game for two players so put in your names, remembering 
to press RETURN between each one. 

Your screen will now display four words, for example: 


herring, pike, bridge, roach 
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The odd man out here is bridge - the others are all fish. 

It could have been herring, pike, roach, bream, however, and then 
which would have been the odd man out? 

Press the space bar to ‘shoot’ the odd man out. 


Programming Hints 

Random selection may mean that the same sequence may pop up 
twice running. 

If you would like to use your own selection of words then you can 
change the data in lines 800 to 970. 


Program 


10 rem 

20 REM * * 

22 REM * ODD WORD OUT * 

24 REM * * 

25 rem 

35 AT$=CHR$ (17) : F0RT= 1 T06 : AT$=AT$+AT$ : NE 
XTT:flT$=CHR$<19)+RT$ 

37 POKE53280, 1 1 = PQKE53281 , 1 

49 DIMWf (54) 

45 GOSUB 10000 

50 DIMP$(2) 

60 DIMS(2) 

70 C$(0)=CHR$( 156) ; C$(1)=CHR$(28) : C$(2)= 
CHR$ ( 30 ) : C$ < 3 ) =CHR$ ( 3 1 ) 

130 PRINTCHR$( 147) 

1 40 PR I NTLEFT $ ( ATS , 4 ) SPC (9 ) ; 

150 INPUT" 1 OR 2 PL8YERS ";N 

152 IF1-K10R N>2 THENGOTO150 

168 PR I NTLEFT $ ( ATf .. 6 ) SPC ( 5 ) ; " WHRT PPE TH 

E PLAYERS NAMES ?" 

170 F0RJ=1T0H 

180 PR I NTLEFT$ ( AT# , 1 0+ J*2 ) SPC ( 5 ) ; " PLAYER 

11 j j j ii --y ii • 

190 I NPUTP$ ( J ) 

210 NEXTJ 
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220 FORDL-1TO200 : NEXTDL 
230 PRINTCHR*( 147) 

240 F0RJ=1T054 

259 REfiDW$<J) 

260 NEXTJ 
270 FORK TON 

272 PRINTCHR*< 144) 

275 I FN= 1 THENPR I NTLEFT* < RT* , 1 ) SPC < 16); P$ 
<1);":";S<1):G0T0284 

280 PR I NTLEFT * ( RT* , 1 ) SPC C6>;F'*C D; " : ";3< 
1) 

284 IFN<2THENG0T0294 

290 PR I NTLEFT* < AT* , 1 ) SPC < 22 ) ; P* < 2 ) ; " = " ; S 
< 2 ) 

294 IFS(1)>=100 OR S(2)>=100 THEN 00T077 
0 

300 G=INT<RND<1)*18) 

310 0=0*3+ 1 

314 PS=10 

315 PRINTCHR$<144) 

320 PR I NTLEFT* < RT* , 6 ) SPC (11);" VOUR TURN , 
";P*<T) 

324 FORDL= 1 TO 1 50 : NEXTDL 
338 R1=INT(RND(1)*4) 

335 R2=INT(RND<1)#4) 

340 IFR2=R1 THEN G0T0335 
350 R3= I NT < RND ( 1 ) *4 ) 

355 IFR3=R2 OR R3=R1 THEN G0T0358 
360 R4=INT<RND( 1 )*4) 

365 IFR4=R3 OR R4=R2 OR R4=R1 THEN GOTO 
360 

378 C1=INT<RND<1)#4) 

372 C2=INT<RND<1)#4) 

374 IFC2=C1 THEN G0T0372 
376 C3=INT(RND<1)*4) 

378 IFC3=C2 OR C3=C1 THEN G0T0376 
380 C4= I NT ( RND ( 1 ) *4 ) 

382 IFC4=C3 OR C4=C2 OR C4=C1 THEN GOTO 
380 

400 E= I NT < RND ( 1 ) *54 ) + 1 
405 SP$=" " 

410 IF ECG+3 RND E>G-1 THEN GOTO 400 
445 PR I NTLEFT* CRT*. IS) SPC (8); " 

ll 

417 X 1 = I NT C 5- C LEN < W* ( G ) ) /2) ) : K2= 1 0-LEN < W 
*<G))-X1 : PRINTC*(C1) 
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4 1 3 PR I NTLEFT$ < AT* , 9 ) SPC < R 1 # 1 0 ) ; CHR* <1 8 ) 
;SP* 

4 19 PR I NTLEFT* < AT* , 1 8 ) SPC < R 1 * 1 6 ) ; CHR* ( 1 8 
) ; LEFT* ( SP* , X 1 ) ; U$ 03); LEFT* ( SP* , X2 ) 

429 PR I NTLEFT * < AT* , 1 1 > SPC < R 1 $ 1 0 ) ; CHR* < 1 8 

**, j C;p£ 

425 X3= I NT ( 5- ( LEH ( W* C G+ 1 ) ) /2 ) ) = X4= 1 8-LEN 
< W* < G+ 1 ) ) -X3 : F'R I NTC* < C2 ) 

428 PR I NTLEFT * < AT* , 9 ) SPC ( R2* 18); CHR* C 1 8 ) 
i C .P$ 

429 PRINTLEFT*<AT$, 18)SPC(R2*18) ; CHR$<18 
) ; LEFT* < SP* , X3 ) ; W$ ( G+ 1 ) ; LEFT* < SP* , X4 ) 

430 PRINTLEFT*<AT$, 1 1 )SPC<R2#18) ; CHR* < 18 


) j SP* 

435 X5= I NT < 5- < LEN ( W* ( G+2 ) ) /2 ) ) : X6= 1 8-LEN 
< W* < G+2 ) ) -K5 = PR I NTC* ( C3 ) 

438 PR I NTLEFT* < AT* , 9 ) SPC < R3* 1 8 ) ; CHR* ( 1 8 ) 
;SP* 

439 PR I NTLEFT$ < AT* , 1 8 ) SPC ( R3# 1 8 ) ; CHR* < 1 8 
) ; LEFT* ( SP* , K5 ) m < G+2 ) LEFT* < SP* , XS ) 

440 PR I NTLEFT * < AT* ,11) SPC < R3* 1 8 ) ; CHR* ( 1 8 
) ; SP* 

445 X7= I NT ( 5- < LEN < W* ( E ) ) /2 ) ) : K8= 1 8-LEN < W 
$ C E ) ) -X7 : PR I NT C* C4 ) 

448 PR I NTLEFT* < AT* , 9 ) SPC < R4# 1 0 ) ; CHR* <1 8 ) 


■ 

449 PR I NTLEFT* ( AT* , 1 0 ) SPC ( R4# 18); CHR* < 1 8 


) ; LEFT* < SP* , X7 ) ; W* < E ) J LEFT* < SP* , X8 ) 

450 PR I NTLEFT* < AT* ,11) SPC ( R4* 1 8 ) ; CHR* ( 1 8 
) ; SP* 


460 P=1 


470 D=1 

488 PRINTLEFT*<FiT*,28)SPC<F);" " 

490 p=p+ri 

495 P0KES0+4 , 1 29 : P0KES0+ 1 , 30+P : P0KES0+4 , 


580 PR I NTLEFT* ( AT* , 28 ) SPC (P)J CHR* < 1 93 ) 
510 GETA* 

520 IFA*0" "THEN GOTO 550 
530 IFP>38 OR P<1 THEN D=-B : PS*PS-1 
540 GOTO480 
550 : 

560 F0RJ=18TQ123TEP-1 
578 POKESO+1 , 58- J 

583 PR I NTLEFT* < AT* , J ) SPC < P > J CHR* <1 94 ) 
600 PRINTLEFT*<AT*, J+l )SPC<P) " " 
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610 NEXT J : POKESQ+ 1 , 0 

614 PRINTLEFT$CAT$, J+l >SPC(P) " " 

620 IFP>=R4*10flND P<=R4#10+9THENGOTO650 
630 POKESO+ 1 , 3 : FORDL= 1 TO 1 009STEP3 : POKESO 
, <BLRNB255> : NEXTDL : F’OKESO+1 , 0 : POKESO.. 0 
640 OOTO730 


650 : 

660 F0RJ=1T019 

670 PRINTLEFT$<AT$, 10>SPC<R4#10>;CHR$a8 
; LEFT $ < SP$ , X7 ) ; CHR$ < 1 46 ) J 14$ < E ) 

680 POKESO+1 .. 5*.J 

700 PRINTLEFT$CflT$, 10)SPC<R4*10);CHR$<18 
); LEFTS <SP$,X7>;W$(E> 

710 NEXT J:P0KES0+ 1,0 
716 I FF'S< 1 THENPS=1 


720 S < T ) =S < T ) +PS : PR I NTCHR$ a 44 ) 

722 PRINTLEFTSCATS, 16)SPC(11); "SCORE 
POINTS!" 

738 FORB= 1 TO 1 000 : NEXTD 
740 PRINTCHR-T(147) 

750 NEXTT 
760 GOTO270 

770 FORDL= 1 TO 1 90 - NEXTDL 

782 I FS ( 2 ) >= 100' THEN00T0786 

784 PR I NTLEFT $ < PT$ , 1 ) SPC < 7 ) ; P$ (1 ) j " 

HE WINNER! ":GOTO790 

786 PR I NTLEFT$ C flTi , 1 0 ) SPC c 7 ) J P$ ( 2 ) " 

THE WINNER!" 


"PS 


S T 


790 END 

800 DATA " LONDON. " , " PAR IS"," ROME " 

810 DATA "CAT" , "GERBIL" , "HORSE" 

820 DATA "FORD" , "BRIDGE" , "FERRV" 

830 DATA "ROACH" , "PIKE" , "HERRING" 

840 DATA "QUARRY" , "QUIZ" , "QUARTZ" 

850 DATA "PING"," BANG " , " CL I CK. " 

860 DATA " DORSET " , " SUSSEX " , " SUFFOLK " 
876 DATA " YACHT " , " D I NGHV " , " SLOOP " 

889 DATA" MINIM" , "LEVEL" , "REFER" 

890 DATA "FRANCE" , "GERMANY" , "ITALY" 

900 DATA "MAI SON " , " CH I EN " , " FENETRE " 

A 10 DATA "SPECTRUM" , "DRAGON" , "ORIC" 

920 DATA "CRICKET" , "FOOTBALL" , "TENNIS" 
930 DATA " GEORGE " , " CHARLES " , " R I CHARD " 
940 DATA "STOUR" , "TRENT" , "THAMES" 

950 DATA " DVFED " , " GWENT " , " CLWYD " 

968 BATA "CANARY" , "FINCH" , "SPARROW" 
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970 BflTfi"BRFiW", "POKE", "PRINT" 

10000 REN SET UP SOUNDS 
10010 50=54272 

1 0020 FQRT=0TO28 : POKESQ+T , 8 : NEXT 
10048 F’0KES0+5,9 : REM nTTRCK/BECRV 
1 0850 POKESO+S , 248 : REN SUSTfl I N/RELEflSE 
18060 P0KES0+24.< 15 : REN VOLUME 
10070 POKESO+4,33 : REN WAVEFORM 
10088 RETURN 
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Science Quiz 



U HIGH 15 POIS O N O IJ S '? 


1. CY Pi WIDE 



This is a program of multiple choice questions where you are given 
a selection of statements and asked to choose the correct answer. 

If you find these questions too difficult or too easy you can ask your 
parents to provide your computer with some questions of your 
own . We will tell you how at the end of this introduction. 


How to play 

The computer will ask for your name and you type it in and press 
RETURN 

A choice of statements will appear on the screen and you will be 
asked to choose the correct answer. 
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Example: ‘What will you grow if you plant an acorn?’ 

1. An elm tree 

2. Arose 

3. An oak tree 
To answer press 1 , 2 or 3 

If you are correct the computer will tell you so. 

If you are wrong the computer will tell you ‘That is wrong’. 
Remember that the faster you answer, the more points you score. 
If you are too slow, you will run out of time. 


Programming Hints 

The lines to change for your own questions are 600, to 795. Type in 
the question first, then the correct answer followed by two wrong 
answers. Remember to enclose each item in inverted commas (“ ”) 
as shown on the listing. 


Program 


1 0 REM $$$$$$$$$$$$$$$$$$$$$$ 

20 REM * * 

22 REM * SCIENCE QUIZ * 

24 REM * % 

25 rem mmwmmmwwmmm 

30 AT $=CHP.$ < 1 7 ) : FORT = 1 T06 : AT $=RT $+AT $ '■ HE 
XTT:flT**CHR$<19)+flT$ 

32 PR I NTCHRf ( 147) : GQSUB 1 0000 

35 P0KE5328Q , 9 : P0KE5328 1 , 7 : PR I NTCHR$ < 28 ) 

40 SC=0 

50 QN=0 

60 RS=0 

70 DIMQ$<20> 

80 BIMR$(20,3) 

90 •• 

100 PR I NTCHRS U 47 ) J CHR$ <1 7 ) ; CHR$ <1 7 ) " 
WHRT IS YOUR HRME" ; : INPIJTNS 
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110 F0RJ=1TQ20 
120 RERDQ*<,T) 

130 F0RK=1T03 
140 RERBR*<J,K) 

150 NEXTK 
160 NEXTJ 

170 PRINTCHR*< 147) 

180 PR I NTLEFT* < RT* . 2) SPC < 6 )" QUEST IONS: " 
J QN 

190 PR I NTLEFT * < RT* , 2 ) SPC < 22 ) " SCORE = ";SC 
200 R= I NT < RND <1)$20X 
210 IFR=RSTHENGOTO200 
228 RS=R 

230 PR I NTLEFT* < AT* , 7 ) SPC < 5 ) Q* < R ) 

240 RR<NT<RND< 1) *3 ) + l 

250 RB<NT<RNB<1 ) *3) + 1 

268 IFRB=RR THEN G0T0258 

270 RC= I NT < END < 1 ) #3 ) + 1 

280 IFRC=Rfi OR RC=RB THENG0T0273 

290 PR I NTLEFT* < RT* , 1 0 ) SPC < 7 ) " 1 . " ; fl* < R , R 

fl) 

380 PR I NTLEFT* < RT* ,12) SPC < 7 ) " 2 . " ; fl* < R , R 

B) 

310 PR I NTLEFT* < RT* ,14) SPC < 7 ) " 3 . " ) fl* < R , R 

C) 

320 PR I NTLEFT* < RT* ,18) SPC < 7 ) " 3 PRESS 1 , 

2 OR 3, ";N*;" " 

330 QN=QN+1 
340 FORT=1TO1000 
350 GETR* 

360 I FT/ 1 80= I NT (1/ 108) THEN POKESO+1,20: 
FORBL=1TO40 : NEXTDL : POKESO+1 , 0 
378 IFR*=" 1 "THENT*=fl$<R, P.R) = G0T0448 
380 I FR*= " 2 " THENT*=fl* < R , RB ) : GOTO440 
390 IFR*="3"THENT*=fl*<R, RC) : G0T0448 
400 NEXTT 

410 POKESO+l , 10 : FORBL=1TO500 : NEXTDL : POKE 
SO+1,0 

420 PR I NTLEFT* < RT* , 28 ) SPC < 6 ) " OUT OF TINE 

I " 

430 G0T0523 

440 I Ffl* < R , 1 ) =T*THENGOTO480 
450 : 

460 F'R I NTLEFT * < RT* , 20 ) SPC < 9 ) i " THAT IS UR 
ONG, " j N$ 

470 GOTO520 
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480 : 

490 PR I NTLEFT $ < Hilt, 20 ) SPC < 1 4 > ; " CORRECT ! " 
492 S I = 1 0— I NT (T/100) 

500 SC=SC+SI 

520 F0RIi= 1 TO 1 080 : NEHTD 

522 I F QM=20THENGOTO540 

530 GOTO 170 

540 PRINTCHR$< 147) 

548 = 

550 PR I NTLEFT$ < Hit, 10 ) SPC < 4 ) " VOUR F I NflL 
SCORE IS "JSC 
560 : 

580 STOP 

680 DATA "WHICH PLANET IS NEAREST 
THE SUN?" 

605 BATA "MERCURY"; "MARS". "VENUS" 

610 BATA "WHAT IS THE COMMON NAME 
FOR SOB I UM CHLORIBE?" 

6 1 5 BATH "SALT"; " AMMON I A 'V SUGAR " 

620 BATA "WHICH WILL FLOAT IN WATER?" 

625 BATA "CORK" , "IRON" , "GLASS" 

630 BATA "WHAT WILL GROW IF YOU PLANT 
AH ACORN?" 

635 BATA "AN OAK TREE" /'A ROSE".. "AN ELM T 
REE" 

640 BATA "AT WHAT TEMPERATURE WILL 
WATER FREEZE?" 

645 BATA"0 CENTIGRADE" ;" 10O CENTIGRADE", 
"-2 12 CENTIGRABE" 

650 BATA "WHAT IS THE BOILING POINT 
OF WATER?" 

655 BATA "100 CENT I ORABE ” , " 8 CENT I GRADE " .. 
"212 CENTIGRADE" 

660 BATA "WHICH WILL DISSOLVE IN WATER?" 
665 BATA " SUGAR " , " SAND " , " WOOD " 

670 BATA "WHICH IS POISONOUS?" 

675 BATA "CYAN I BE" , "GLUCOSE" , "SUCROSE" 

680 BATA "WHAT DO BUTTERFLIES EAT?" 

685 DATA "NECTAR"; "CABBAGES", "ALMOST ANVT 
HING" 

690 DATA" IF YOU DROPPED AN IRON BALL AND 
A PEA; WHICH WOULD FALL FASTEST?" 

695 BATA"NEITHER" . "THE IRON ERLL" .■ "THE P 
EA" 

700 DATA "HOW MANY LEGS HAS A SPIDER?" 

705 BATA " E I GHT " , " FOUR ".."SI X " 



188 Science Quiz 


710 BATA "WHAT WILL VOU GET IF VOU MIX 
BLUE AND VELLOW?" 

715 DATA "GREEN "/'BLUE AND VELLOW STRIPES 
" , "ORANGE" 

720 BATA "WHICH TREES BO CONKERS COME FRO 
M?" 

725 BATA "HORSE CHESTNUT" /'OAK" , "BEECH" 
730 BATA "HOW FAR WILL A CAR TRAVELLING 
AT 60KM/HR MOVE IN 15 MINUTES?" 
735 BATA "15 KM"/' 60 KM"/' 30 KM" 

740 BATA "WHICH WILL FEEL HOTTEST IN 
A HOT BRINK?" 

745 BATA "METAL SPOON" /'PLASTIC SPOON" . "P 
ENCIL" 

750 BATA "WHICH WILL CONBUCT ELECTRICITY? 

ll 

755 BATA " COPPER " , " WOOB " /' RUBBER " 

760 BATH "A CYGNET IS A YOUNG ?" 

765 BAT A " SWAN "/' BUCK "/' GOOSE " 

770 BATA "WHICH IS AN ELECTRICAL INSULATO 
R?" 

775 BATA "RUBBER "/'COPPER "/'I RON" 

789 BATA "AN ECLIPSE OF THE SUN IS CAUSES 

it 

785 BATA "THE MOON" /'A THUNBERSTORM" /'A P 
OWER CUT" 

798 BATA "WHICH WILL BE ATTRACTEB BY 
A MAGNET?" 

795 BATA" IRON" , "COPPER" , "GOLB" 

10380 REM SET UP SOUNBS 
10013 80=54272 

1 0020 FORT=0TO28 '• PQKESO+T , 0 : NEXT 
10840 P0KES0+5, 9 : REM ATTACK/BECAY 
1 8050 PGKESO+6 , 240 : REM SUSTA I N/RELERSE 
10868 P0KES0+24j 15 : REM VOLUME 
10870 POKESO+4,17 : REM WAVELENGTH 
10080 RETURN 






If your family already owns a Commodore 64 -or if you 
are thinking of buying one -the chances are that it is 
because you have thought about the part computers are 
going to play in your family's future. The programs in this 
book have been designed to help the younger members 
of your family to handle the Commodore and to increase 
their general knowledge- whilst also enjoying 
themselves. 

All of these ideas have been developed with the 
assistance of educationalists and a professional 
programmer. They are intended to give young users 
games which will complement their schooling and also 
give them a head start in using a micro. 

Subjects include languages, geography, mathematics, and 
science. Hints are also provided to show how the contents 
of the programs can be changed to suit the family as their 
skill improves. 


The Author 

Vince Apps is a regular contributor to journals such as 
Popular Computing Weekly and Home Computing Weekly. 
He is a graduate of Sussex University in Computer Science 
and has his own successful software company. 
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